*----------------------------------------------------------------- * GENERATED APPLICATION: CALLED BATCH *----------------------------------------------------------------- IDENTIFICATION DIVISION. PROGRAM-ID. THKKM1. AUTHOR. NONE INSTALLATION. NONE DATE WRITTEN. 02.06.2000. DATE COMPILED. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SPECIAL-NAMES. DECIMAL-POINT IS COMMA. *----------------------------------------------------------------- * APPLICATION NAME : THKKM1 * APPLICATION TYPE : CALLEDBATCH * MODIFICATION DATE : 02.06.2000 * MODIFICATION TIME : 11:36:41 * GENERATION SYSTEM : MVSCICS * GENERATION DATE : 02.06.2000 * GENERATION TIME : 18:19:55 * GENERATION OPTIONS : * ANSISQL(NO) * CICSDBCS(NO) * COMMLVL(4) * CONTABLE(ELACNTUR) * DATA(31) * DEBUGTRACE(NO) * ENDCOMMAREA(NO) * FOLD(NO) * GENRET(NO) * INEDIT(ALL) * INITADDWS(YES) * INITRECD(YES) * LINEINFO(NO) * MATH(COBOL) * NUMOVFL(YES) * PREPFILE(YES) * PRINTDEST(EZEP) * SPZERO(NO) * SYNCDXFR(YES) * SYSCODES(YES) * TARGNLS(ENU) * TRACE() * TRANSID(DBSV,) * TWAOFF(0) * USERID(DGNM) * VALIDMIX(YES) * WORKDB(AUX) * * PROLOGUE: * *----------------------------------------------------------------- INPUT-OUTPUT SECTION. DATA DIVISION. WORKING-STORAGE SECTION. * RTS APPLICATION PROFILE BLOCK 01 EZEAPP-PROFILE SYNCHRONIZED. 05 FILLER PIC X(8) VALUE "ELARHAPP". 05 EZEAPP-APPL-NAME PIC X(8) VALUE "THKKM1". 05 EZEAPP-PGM-VERSION. 10 EZEAPP-GEN-DATE PIC X(8) VALUE "20000615". 10 EZEAPP-GEN-TIME PIC X(8) VALUE "18200587". 05 EZEAPP-RTS-PTR USAGE IS POINTER VALUE NULL. 05 EZEAPP-GEN-VERSION PIC X(16) VALUE "040301". 05 EZEAPP-COB-SYS PIC X(8) VALUE "MVSCICS". 05 EZEAPP-CALLER-PROFILE USAGE IS POINTER VALUE NULL. 05 EZEAPP-EZE-WORDS-PTR USAGE IS POINTER VALUE NULL. 05 EZEAPP-CURS-BLK-PTR USAGE IS POINTER VALUE NULL. 05 EZEAPP-DLI-SCAN-PTR USAGE IS POINTER VALUE NULL. 05 EZEAPP-MSP-IDENT-PTR USAGE IS POINTER VALUE NULL. 05 EZEAPP-SPA-LEN PIC S9(9) COMP VALUE +0. 05 EZEAPP-MAX-MSG-LEN PIC S9(9) COMP VALUE +0. 05 EZEAPP-WSR-PTR USAGE IS POINTER VALUE NULL. 05 EZEAPP-DB-IO-LEN PIC S9(9) COMP VALUE +65535. 05 EZEAPP-PARM-VAL-PTR USAGE IS POINTER VALUE NULL. 05 EZEAPP-1ST-MAP-PTR USAGE IS POINTER VALUE NULL. 05 EZEAPP-PSBNAME PIC X(8) VALUE SPACES. 05 EZEAPP-PCB-CNT PIC S9(4) COMP VALUE +0. 05 EZEAPP-MS-PCB-NO PIC S9(4) COMP VALUE ZERO. 05 EZEAPP-WK-PCB-NO PIC S9(4) COMP VALUE +0. 05 EZEAPP-ERRDEST PIC X(8) VALUE SPACES. 05 EZEAPP-LOG-ID PIC X(1) VALUE LOW-VALUES. 05 EZEAPP-MSP-PROGRAM PIC X(8) VALUE SPACES. 05 EZEAPP-MAP-GROUP PIC X(8) VALUE SPACES. 05 EZEAPP-HELP-MAP-GROUP PIC X(8) VALUE SPACES. 05 EZEAPP-HELP-PF-KEY PIC X(2) VALUE "01". 05 EZEAPP-BYPASS-PF-KEYS. 10 FILLER PIC X(10) VALUE SPACES. 05 FILLER REDEFINES EZEAPP-BYPASS-PF-KEYS. 10 EZEAPP-BYPASS-PF-KEY PIC X(2) OCCURS 5 TIMES. 05 EZEAPP-MSG-FILE-ID PIC X(4) VALUE SPACES. 05 EZEAPP-MS-DB-TYPE PIC X(1) VALUE "5". 05 EZEAPP-WK-DB-TYPE PIC X(1) VALUE "3". 05 EZEAPP-ADF-SPA PIC X(1) VALUE "N". 05 EZEAPP-APPL-TYPE PIC X(1) VALUE "4". 05 EZEAPP-EXECMODE PIC X(1) VALUE "1". 05 EZEAPP-SCAN-IO-PCB PIC X(1) VALUE "N". 05 EZEAPP-PF1-12-IS-PF13-24 PIC X(1) VALUE "Y". 05 EZEAPP-NLS-CODE PIC X(3) VALUE "ENU". 05 EZEAPP-CURRENCY-SYMBOL PIC X(1) VALUE "T". 05 EZEAPP-DECIMAL-SYMBOL PIC X(1) VALUE ",". 05 EZEAPP-NUM-SEP-SYMBOL PIC X(1) VALUE ".". 05 EZEAPP-MATH PIC X(5) VALUE "COBOL". 05 EZEAPP-SYSTEM-RTN-CODES PIC X(1) VALUE "Y". 05 EZEAPP-ENTRY-FUNCTION PIC X(2) VALUE LOW-VALUES. 05 EZEAPP-MS-RTB-ADDRESS USAGE IS POINTER VALUE NULL. 05 EZEAPP-TBK-STACK-SIZE PIC S9(9) COMP VALUE +0. 05 FILLER PIC X(8) VALUE LOW-VALUES. 05 EZEAPP-FAST-PATH-SW PIC X(1) VALUE "N". 05 EZEAPP-RECOVERY-SW PIC X(1) VALUE "N". 05 FILLER PIC X(1) VALUE LOW-VALUES. 05 EZEAPP-EZEDESTP-CHANGED PIC X(1) VALUE "N". 05 EZEAPP-LINK-TYPE PIC X(1) VALUE "4". 05 EZEAPP-PARM-FORM PIC X(1) VALUE "1". 05 EZEAPP-CURS-BLK-CNT PIC S9(4) COMP VALUE +3. 05 EZEAPP-TWA-LENGTH PIC S9(9) COMP VALUE +0. 05 EZEAPP-TWA-ADDRESS USAGE IS POINTER VALUE NULL. 05 EZEAPP-TWA-USER-LENGTH PIC S9(9) COMP VALUE 0. 05 EZEAPP-MAX-SSA-LENGTH PIC S9(9) COMP VALUE +0. 05 EZEAPP-LTB-ARRAY-ADDRESS USAGE IS POINTER VALUE NULL. 05 EZEAPP-ENTRY-COMMAREA-PTR USAGE IS POINTER VALUE NULLS. 05 FILLER PIC X(1) VALUE SPACES. 05 EZEAPP-NEED-ENDB PIC X(1) VALUE "N". 05 EZEAPP-BAD-RESP PIC X(1) VALUE "N". 05 FILLER PIC X(1) VALUE SPACES. 05 EZEAPP-SYNC-XFERS-SW PIC X(1) VALUE "N". 05 EZEAPP-SYNC-DXFRS-SW PIC X(1) VALUE "Y". 05 EZEAPP-STATIC-CALLS PIC X(1) VALUE "N". 05 EZEAPP-INEDIT-UNP-SW PIC X(1) VALUE "N". 05 EZEAPP-MAX-DB-IOAREA PIC S9(9) COMP VALUE +32767. 05 EZEAPP-LAST-MAPBUF-PTR USAGE IS POINTER VALUE NULL. 05 EZEAPP-FIRST-MAPBUF-PTR USAGE IS POINTER VALUE NULL. 05 EZEAPP-ROWS-USED-PTR USAGE IS POINTER VALUE NULL. 05 EZEAPP-MAPG-MOD-PTR USAGE IS POINTER VALUE NULL. 05 EZEAPP-HELPG-MOD-PTR USAGE IS POINTER VALUE NULL. 05 EZEAPP-CURRENT-RSCT-IDX PIC S9(9) COMP VALUE +0. 05 EZEAPP-CURRENT-HELP-MAP PIC X(8) VALUE SPACES. 05 EZEAPP-EZEDESTP. 10 EZEDESTP PIC X(65) VALUE SPACES. 05 EZEAPP-OPEN-NEW-DESTP PIC X(1) VALUE "N". 05 EZEAPP-EZEDESTP-DIFF PIC X(1) VALUE "N". 05 EZEAPP-USES-SQL PIC X(1) VALUE "Y". 05 EZEAPP-XFER-MAP PIC X(8) VALUE LOW-VALUES. 05 FILLER PIC X(21) VALUE LOW-VALUES. * RTS ERROR HANDLING REQUEST BLOCK COPY ELAEHERR. * RTS SQL ERROR HANDLING REQUEST BLOCK COPY ELA2HERR. 01 EZECICS-TMP-2BYTE-COMP PIC S9(4) COMP VALUE ZERO. * RTS MNEMONICS COPY ELARHMNE. * RTS REQUEST BLOCK COPY ELARHRRB. * DISPLAY SERVICES REQUEST BLOCK COPY ELARHFMR. * EZE SPECIAL FUNCTION WORDS 01 EZEWORDS. 05 EZEEZE-ID PIC X(8) VALUE "ELARHEZE". 05 EZEWORDS-LL PIC S9(9) COMP VALUE +334. 05 EZEWORDS-I. 10 EZEAID PIC X(2) VALUE SPACES. 88 EZEAID-ENTER VALUE " ". 88 EZEAID-CLEAR VALUE "CL". 88 EZEAID-PAKEY VALUE "P1" "P2" "P3". 88 EZEAID-PA1 VALUE "P1". 88 EZEAID-PA2 VALUE "P2". 88 EZEAID-PA3 VALUE "P3". 10 EZEAID-BYPASS-SW PIC X(1) VALUE SPACES. 88 EZEAID-BYPASS VALUE "Y". 88 EZEAID-NO-BYPASS VALUE "N". 10 EZEAID-HELP-SW PIC X(1) VALUE SPACES. 88 EZEAID-HELP VALUE "Y". 88 EZEAID-NO-HELP VALUE "N". 10 EZEAPP PIC X(8) VALUE SPACES. 10 EZECNVCM PIC 9(1) VALUE 0. 88 EZECNVCM-NOCOMMIT VALUE 0. 88 EZECNVCM-COMMIT VALUE 1. 10 EZEDLTRM REDEFINES EZECNVCM PIC 9(1). 10 FILLER PIC X(5) VALUE LOW-VALUES. 10 EZELOC PIC X(8) VALUE SPACES. 10 EZEDLCER PIC X(2) VALUE "00". 10 EZEDLCON PIC X(2) VALUE "00". 10 FILLER PIC 9(7) VALUE ZEROES. 10 EZEFEC PIC 9(1) VALUE ZEROES. 88 EZEFEC-TERMINATE VALUE 0. 88 EZEFEC-CONTINUE VALUE 1. 10 EZEDLERR PIC 9(1) VALUE ZEROES. 88 EZEDLERR-TERMINATE VALUE 0. 88 EZEDLERR-CONTINUE VALUE 1. 10 EZESQISL PIC 9(1) VALUE ZEROES. 10 EZEMNO PIC S9(4) COMP VALUE ZEROES. 88 EZEMNO-ERROR VALUES 1 THRU 9998 -9999 THRU -1. 88 EZEMNO-NO-ERROR VALUE 0. 88 EZEMNO-RE-CONVERSE VALUE 9999. 10 EZEMNO-MSG-FILE-SW PIC X(1) VALUE "N". 88 EZEMNO-APP-MSG-FILE VALUE "Y". 88 EZEMNO-SYS-MSG-FILE VALUE "N". 10 EZEMSG PIC X(78). 88 EZEMSG-SPACES VALUE SPACES. 10 EZEOVER PIC 9(1) VALUE ZEROES. 88 EZEOVER-DEFAULT VALUE 0. 88 EZEOVER-TERMINATE VALUE 1. 88 EZEOVER-CONTINUE VALUE 2. 10 EZEOVERS PIC 9(1) VALUE ZEROES. 10 EZERCODE PIC S9(9) COMP VALUE ZEROES. 10 EZERT2 PIC X(2) VALUE SPACES. 10 EZERT8. 15 EZERT8FS. 20 EZERT8FH PIC 9(1). 20 EZERT8FL PIC 9(1). 15 EZERT8VS. 20 EZERT8VR PIC 9(2). 20 EZERT8VF PIC 9(1). 20 EZERT8VB PIC 9(3). 10 EZERT8-CICS REDEFINES EZERT8. 15 EZERT8-RESP PIC 9(4). 15 EZERT8-RESP2 PIC 9(4). 10 EZESEGM PIC 9(1) VALUE 0. 88 EZESEGM-NONSEGMENT VALUE 0. 88 EZESEGM-SEGMENTED VALUE 1. 88 EZESEGM-DEFINED VALUE 0. 10 EZECONVT PIC X(8) VALUE SPACES. 10 EZETST PIC S9(4) COMP VALUE ZEROES. 10 EZETST2 PIC S9(4) COMP VALUE ZEROES. 10 EZESQLCA. 15 EZESQNAM PIC X(8) VALUE SPACES. 15 EZESQABC PIC S9(9) COMP VALUE ZEROES. 15 EZESQCOD PIC S9(9) COMP VALUE ZEROES. 15 EZESQRRL PIC S9(4) COMP VALUE ZEROES. 15 EZESQRRM. 20 EZESQRET PIC X OCCURS 70 TIMES INDEXED BY EZESQSUB. 15 EZESQRRP. 20 EZESQRPP PIC X(3) VALUE SPACES. 20 EZESQRVM PIC X(5) VALUE SPACES. 15 EZESQRD1 PIC S9(9) COMP VALUE ZEROES. 15 EZESQRD2 PIC S9(9) COMP VALUE ZEROES. 15 EZESQRD3 PIC S9(9) COMP VALUE ZEROES. 15 EZESQRD4 PIC S9(9) COMP VALUE ZEROES. 15 EZESQRD5 PIC S9(9) COMP VALUE ZEROES. 15 EZESQRD6 PIC S9(9) COMP VALUE ZEROES. 15 FILLER PIC X(1) VALUE SPACES. 15 EZESQWN1 PIC X(1) VALUE SPACES. 15 FILLER PIC X(4) VALUE SPACES. 15 EZESQWN6 PIC X(1) VALUE SPACES. 15 FILLER PIC X(9) VALUE SPACES. 10 EZEDL-PCB-INFO. 15 EZEDLDBD PIC X(8) VALUE SPACES. 15 EZEDLLEV PIC 9(2) VALUE ZEROES. 15 EZEDLSTC PIC X(2) VALUE SPACES. 15 EZEDLPRO PIC X(4) VALUE SPACES. 15 FILLER PIC X(4) VALUE SPACES. 15 EZEDLSEG PIC X(8) VALUE SPACES. 15 EZEDLKYL PIC S9(4) COMP VALUE 1. 15 EZEDLSSG PIC S9(4) COMP VALUE ZEROES. 05 EZEMNO-LOOKED-UP-SW PIC X(1) VALUE "N". 88 EZEMNO-LOOKED-UP VALUE "Y". 88 EZEMNO-NOT-LOOKED-UP VALUE "N". 05 EZESYS PIC X(8) VALUE "MVSCICS". 88 EZESYS-IMSVS VALUE "IMSVS". 88 EZESYS-IMSBMP VALUE "IMSBMP". 88 EZESYS-MVSBATCH VALUE "MVSBATCH". 88 EZESYS-MVSCICS VALUE "MVSCICS". 88 EZESYS-OS2CICS VALUE "OS2CICS". 88 EZESYS-TSO VALUE "TSO". 88 EZESYS-VSECICS VALUE "VSECICS". 88 EZESYS-VSEBATCH VALUE "VSEBATCH". 88 EZESYS-OS400 VALUE "OS400". 88 EZESYS-OS2GUI VALUE "OS2GUI". 88 EZESYS-OS2 VALUE "OS2". 88 EZESYS-AIX VALUE "AIX". 88 EZESYS-WINGUI VALUE "WINGUI". 88 EZESYS-AIXCICS VALUE "AIXCICS". 88 EZESYS-VMCMS VALUE "VMCMS". 88 EZESYS-VMBATCH VALUE "VMBATCH". 88 EZESYS-HP VALUE "HP". 88 EZESYS-ITF VALUE "ITF". 88 EZESYS-NTCICS VALUE "NTCICS". 88 EZESYS-WINNT VALUE "WINNT". 05 FILLER PIC X(2) VALUE LOW-VALUES. 05 EZEDLKEY. 10 EZEDLKYC PIC X(1). * FIXED WORK FIELDS COPY ELARHWRK. 01 EZECTL-CALL-FIELDS. 05 EZECTL-RETURN-CODE PIC S9(4) COMP. 05 EZECTL-INDEX PIC S9(4) COMP. 05 EZECTL-HOLD-EZEDLPSB PIC X(8). 05 EZECTL-HOLD-CTL-MODE PIC X(1). 05 EZECTL-HOLD-CTL-REQUEST PIC X(1). 01 EZECTL-CONTROL-FIELDS. 05 EZECTL-IN-EZETERMINATE-FLAG PIC X(1) VALUE "N". 88 EZECTL-IN-EZETERMINATE VALUE "Y". 88 EZECTL-NOT-IN-EZETERMINATE VALUE "N". 01 EZECTL-FUNCTION-RETURN-CODE. 05 EZECTL-FUNCTION-RC-BIN-2 PIC S9(4) COMP. 05 EZECTL-FUNCTION-RC-BIN-4 PIC S9(9) COMP. 05 EZECTL-FUNCTION-RC-NUM-8 PIC 9(8). *----------------------------------------------------------------- * EXTERNAL PARAMETER CONTROL BLOCK *----------------------------------------------------------------- 01 EZEPARM-VALIDATION. 05 EZEPARM-ID PIC X(8) VALUE "ELARHPRM". 05 EZEPARM-COUNT PIC S9(4) COMP VALUE +2. 05 EZEPARM-TYPES. 10 FILLER PIC X(1) VALUE "4". 10 FILLER PIC X(1) VALUE "4". *----------------------------------------------------------------- * WORKING STORAGE RECORD VDBCOMMON *----------------------------------------------------------------- 01 EZEWS-VDBCOMMON-GP. 02 EZEWS-ID PIC X(8) VALUE "ELAASGWS". 02 EZEWS-VDBCOMMON-LL PIC S9(8) COMP VALUE +158. 02 FILLER PIC X(2) VALUE SPACES. 02 FILLER PIC X(18) VALUE "VDBCOMMON". *----------------------------------------------------------------- * RECORD NAME : VDBCOMMON * FILE ORGANIZATION : WORKSTOR * MODIFICATION DATE : 01.06.2000 * MODIFICATION TIME : 10:48:58 * RECORD PROLOGUE : * ************************************************************ * * Record : VDBCOMMON * * * * Function : Database information and control record * * to be used in the application itself * * ************************************************************ *----------------------------------------------------------------- 02 VDBCOMMON. * General Purpose Index 05 UINDEX1 PIC S9(4) VALUE ZERO USAGE COMP. * General Purpose Index 05 UINDEX2 PIC S9(4) VALUE ZERO USAGE COMP. * General Purpose Index 05 UINDEX3 PIC S9(4) VALUE ZERO USAGE COMP. * Genral Purpose Index 05 UINDEX4 PIC S9(4) VALUE ZERO USAGE COMP. * General Purpose Index 05 UINDEX5 PIC S9(4) VALUE ZERO USAGE COMP. * Last Update Date Timestamp 05 ULAST-UPDATE-TS PIC X(26) VALUE SPACES USAGE DISPLAY. * Application Name 05 UAPPLNAM PIC X(7) VALUE SPACES USAGE DISPLAY. 05 EZE-REDEF-1 REDEFINES UAPPLNAM. * Application Prefix 06 UAPPLPFX PIC X(3) USAGE DISPLAY. 06 EZE-REDEF-2 REDEFINES UAPPLPFX. * Project/System ID - 1st Char 07 USYSID1 PIC X(1) USAGE DISPLAY. * Application ID 07 UAPPLID PIC X(2) USAGE DISPLAY. * Application Suffix 06 UAPPLSFX PIC X(4) USAGE DISPLAY. * Process Name 05 UPROCNAM PIC X(30) VALUE SPACES USAGE DISPLAY. * Table Name 05 UTABLNAM PIC X(30) VALUE SPACES USAGE DISPLAY. * SQL Row Record Name 05 USQLREC PIC X(18) VALUE SPACES USAGE DISPLAY. * NRF Flag 05 UNRF PIC X(1) VALUE SPACES USAGE DISPLAY. * Duplicate Key Flag 05 UDUP PIC X(1) VALUE SPACES USAGE DISPLAY. * SQL Number Item 05 USQLNUM PIC S9(3) VALUE ZERO USAGE DISPLAY. * SQL Code (CHA) 05 UEZESQCD PIC X(4) VALUE SPACES USAGE DISPLAY. 05 EZE-REDEF-3 REDEFINES UEZESQCD. * Number Sign 06 USIGN PIC X(1) USAGE DISPLAY. * SQL Code Insert 06 USQLCHA PIC X(3) USAGE DISPLAY. 02 FILLER PIC X(4) VALUE "*END". *----------------------------------------------------------------- * WORKING STORAGE RECORD WMAAS *----------------------------------------------------------------- 01 EZEWS-WMAAS-GP. 02 EZEWS-ID PIC X(8) VALUE "ELAASGWS". 02 EZEWS-WMAAS-LL PIC S9(8) COMP VALUE +254. 02 FILLER PIC X(2) VALUE SPACES. 02 FILLER PIC X(18) VALUE "WMAAS". *----------------------------------------------------------------- * RECORD NAME : WMAAS * FILE ORGANIZATION : WORKSTOR * MODIFICATION DATE : 02.06.2000 * MODIFICATION TIME : 14:36:19 * RECORD PROLOGUE : * *----------------------------------------------------------------- 02 WMAAS. 05 SICIL PIC X(5) VALUE SPACES USAGE DISPLAY. * ESKI_DERECE WAS RENAMED TO ESKI-DERECE 05 ESKI-DERECE PIC X(2) VALUE SPACES USAGE DISPLAY. * ESKI_KADEME WAS RENAMED TO ESKI-KADEME 05 ESKI-KADEME PIC X(1) VALUE SPACES USAGE DISPLAY. * ESKI_EKGOSTERGE WAS RENAMED TO ESKI-EKGOSTERGE 05 ESKI-EKGOSTERGE PIC S9(9) VALUE ZERO USAGE COMP. * ESKI_KIDEM WAS RENAMED TO ESKI-KIDEM 05 ESKI-KIDEM PIC S9(4) VALUE ZERO USAGE COMP. 05 DERECE PIC X(2) VALUE SPACES USAGE DISPLAY. 05 KADEME PIC X(1) VALUE SPACES USAGE DISPLAY. 05 EKGOSTERGE PIC S9(9) VALUE ZERO USAGE COMP. 05 KIDEM PIC S9(4) VALUE ZERO USAGE COMP. * IS_GUC_PUAN WAS RENAMED TO IS-GUC-PUAN 05 IS-GUC-PUAN PIC S9(9) VALUE ZERO USAGE COMP. * IS_GUCLUGU WAS RENAMED TO IS-GUCLUGU 05 IS-GUCLUGU PIC S9(13) VALUE ZERO USAGE COMP-3. * ELTEM_PUAN WAS RENAMED TO ELTEM-PUAN 05 ELTEM-PUAN PIC S9(9) VALUE ZERO USAGE COMP. * ELTEM_GUCLUGU WAS RENAMED TO ELTEM-GUCLUGU 05 ELTEM-GUCLUGU PIC S9(13) VALUE ZERO USAGE COMP-3. * OZEL_HIZMET_YZD WAS RENAMED TO OZEL-HIZMET-YZD 05 OZEL-HIZMET-YZD PIC S9(9) VALUE ZERO USAGE COMP. * OZEL_HIZMET_TAZ WAS RENAMED TO OZEL-HIZMET-TAZ 05 OZEL-HIZMET-TAZ PIC S9(13) VALUE ZERO USAGE COMP-3. * MAKAM_PUAN WAS RENAMED TO MAKAM-PUAN 05 MAKAM-PUAN PIC S9(9) VALUE ZERO USAGE COMP. * MAKAM_TAZ WAS RENAMED TO MAKAM-TAZ 05 MAKAM-TAZ PIC S9(13) VALUE ZERO USAGE COMP-3. * MALI_SOR_PUAN WAS RENAMED TO MALI-SOR-PUAN 05 MALI-SOR-PUAN PIC S9(9) VALUE ZERO USAGE COMP. * MALI_SORUMLULUK_TAZ WAS RENAMED TO MALI-SORUMLULUK-TAZ 05 MALI-SORUMLULUK-TAZ PIC S9(13) VALUE ZERO USAGE COMP-3. * YABANCI_DIL_SEVIYE WAS RENAMED TO YABANCI-DIL-SEVIYE 05 YABANCI-DIL-SEVIYE PIC X(1) VALUE SPACES USAGE DISPLAY. * YABANCI_DIL_TAZ WAS RENAMED TO YABANCI-DIL-TAZ 05 YABANCI-DIL-TAZ PIC S9(13) VALUE ZERO USAGE COMP-3. * LOJMAN_TAZ WAS RENAMED TO LOJMAN-TAZ 05 LOJMAN-TAZ PIC S9(13) VALUE ZERO USAGE COMP-3. * AILE_YARDIM_PUAN WAS RENAMED TO AILE-YARDIM-PUAN 05 AILE-YARDIM-PUAN PIC S9(9) VALUE ZERO USAGE COMP. * AILE_YARDIM_TAZ WAS RENAMED TO AILE-YARDIM-TAZ 05 AILE-YARDIM-TAZ PIC S9(13) VALUE ZERO USAGE COMP-3. * COCUK_SAYI WAS RENAMED TO COCUK-SAYI 05 COCUK-SAYI PIC S9(4) VALUE ZERO USAGE COMP. * COCUK_TAZ WAS RENAMED TO COCUK-TAZ 05 COCUK-TAZ PIC S9(13) VALUE ZERO USAGE COMP-3. * GELIR_VERGI WAS RENAMED TO GELIR-VERGI 05 GELIR-VERGI PIC S9(13) VALUE ZERO USAGE COMP-3. * DAMGA_VERGI WAS RENAMED TO DAMGA-VERGI 05 DAMGA-VERGI PIC S9(13) VALUE ZERO USAGE COMP-3. * YUKSELIS_KES WAS RENAMED TO YUKSELIS-KES 05 YUKSELIS-KES PIC S9(13) VALUE ZERO USAGE COMP-3. * EMEKLI_AIDAT_SAH WAS RENAMED TO EMEKLI-AIDAT-SAH 05 EMEKLI-AIDAT-SAH PIC S9(13) VALUE ZERO USAGE COMP-3. * EMEKLI_AIDAT_KUR WAS RENAMED TO EMEKLI-AIDAT-KUR 05 EMEKLI-AIDAT-KUR PIC S9(13) VALUE ZERO USAGE COMP-3. * VAKIF_AIDAT WAS RENAMED TO VAKIF-AIDAT 05 VAKIF-AIDAT PIC S9(13) VALUE ZERO USAGE COMP-3. * SAGLIK_AIDAT WAS RENAMED TO SAGLIK-AIDAT 05 SAGLIK-AIDAT PIC S9(13) VALUE ZERO USAGE COMP-3. * VAKIF_KREDI WAS RENAMED TO VAKIF-KREDI 05 VAKIF-KREDI PIC S9(13) VALUE ZERO USAGE COMP-3. 05 KAMP PIC S9(13) VALUE ZERO USAGE COMP-3. 05 YEMEK PIC S9(13) VALUE ZERO USAGE COMP-3. 05 LOKAL PIC S9(13) VALUE ZERO USAGE COMP-3. 05 KRES PIC S9(13) VALUE ZERO USAGE COMP-3. 05 ICRA PIC S9(13) VALUE ZERO USAGE COMP-3. 05 HARCIRAH PIC S9(13) VALUE ZERO USAGE COMP-3. * NET_MAAS WAS RENAMED TO NET-MAAS 05 NET-MAAS PIC S9(13) VALUE ZERO USAGE COMP-3. * TOP_MATRAH WAS RENAMED TO TOP-MATRAH 05 TOP-MATRAH PIC S9(15) VALUE ZERO USAGE COMP-3. 02 FILLER PIC X(4) VALUE "*END". *----------------------------------------------------------------- * WORKING STORAGE RECORD WTAHAKKUK *----------------------------------------------------------------- 01 EZEWS-WTAHAKKUK-GP. 02 EZEWS-ID PIC X(8) VALUE "ELAASGWS". 02 EZEWS-WTAHAKKUK-LL PIC S9(8) COMP VALUE +97. 02 FILLER PIC X(2) VALUE SPACES. 02 FILLER PIC X(18) VALUE "WTAHAKKUK". *----------------------------------------------------------------- * RECORD NAME : WTAHAKKUK * FILE ORGANIZATION : WORKSTOR * MODIFICATION DATE : 02.06.2000 * MODIFICATION TIME : 11:20:16 * RECORD PROLOGUE : * *----------------------------------------------------------------- 02 WTAHAKKUK. 05 MAAST PIC S9(12) VALUE ZERO USAGE DISPLAY. 05 MAASV PIC S9(12) VALUE ZERO USAGE DISPLAY. 05 MAASD PIC S9(12) VALUE ZERO USAGE DISPLAY. * YASAL_KESINTI_TOPLAM WAS RENAMED TO YASAL-KESINTI-TOPLAM 05 YASAL-KESINTI-TOPLAM PIC S9(12) VALUE ZERO USAGE DISPLAY. * OZEL_KESINTI_TOPLAM WAS RENAMED TO OZEL-KESINTI-TOPLAM 05 OZEL-KESINTI-TOPLAM PIC S9(12) VALUE ZERO USAGE DISPLAY. 05 YGOSTERGE PIC S9(9) VALUE ZERO USAGE DISPLAY. 02 FILLER PIC X(4) VALUE "*END". EXEC SQL INCLUDE SQLCA END-EXEC. * SQL ITEM REQUEST BLOCK COPY ELASHSQI. *----------------------------------------------------------------- * RECORD NAME = DER_KAD * TABLE NAME = BORDRO.DER_KAD * SQL ROW ITEM SQL COLUMN * DERECE DERECE * KADEME KADEME * GOSTERGE GOSTERGE *----------------------------------------------------------------- 01 EZESTA-DER-KAD-GP. 02 EZESTA-ID PIC X(8) VALUE "ELAASGSR". 02 EZESTA-DER-KAD-LL PIC S9(8) COMP VALUE +47. 02 EZESTA-DER-KAD-RC PIC S9(2) VALUE 00. 88 EZESTA-DER-KAD-OK VALUE 00. 88 EZESTA-DER-KAD-ERR VALUES ARE -99 THRU -01 01 THRU 99. 88 EZESTA-DER-KAD-SFT VALUES ARE 01 THRU 99. 88 EZESTA-DER-KAD-DED VALUE -01. 88 EZESTA-DER-KAD-DUP VALUE -05. 88 EZESTA-DER-KAD-EOF VALUE 03 07. 88 EZESTA-DER-KAD-NRF VALUE 04 07. 88 EZESTA-DER-KAD-UNQ VALUE -05. 88 EZESTA-DER-KAD-HRD VALUES ARE -99 THRU -01. 88 EZESTA-DER-KAD-FUL VALUE -06. 88 EZESTA-DER-KAD-FNA VALUE -07. 88 EZESTA-DER-KAD-FMT VALUE -08. 88 EZESTA-DER-KAD-FNF VALUE -09. 88 EZESTA-DER-KAD-LOK VALUE -10. 02 FILLER PIC X(18) VALUE "DER-KAD". *----------------------------------------------------------------- * RECORD NAME : DER_KAD * FILE ORGANIZATION : SQLROW * MODIFICATION DATE : 02.06.2000 * MODIFICATION TIME : 14:44:19 * RECORD PROLOGUE : * *----------------------------------------------------------------- * DER_KAD WAS RENAMED TO DER-KAD 02 DER-KAD. 10 FILLER PIC X(4). 10 DERECE PIC X(2) USAGE DISPLAY. 10 FILLER PIC X(4). 10 KADEME PIC X(1) USAGE DISPLAY. 10 FILLER PIC X(4). 10 GOSTERGE PIC S9(9) USAGE COMP. 02 EZESQL-DER-KAD-H REDEFINES DER-KAD. 10 FILLER PIC X(4). 10 DERECE PIC X(2) USAGE DISPLAY. 10 FILLER PIC X(4). 10 KADEME PIC X(1) USAGE DISPLAY. 10 FILLER PIC X(4). 10 GOSTERGE PIC S9(9) USAGE COMP. 02 EZESQL-DER-KAD-I REDEFINES DER-KAD. 10 DERECE PIC S9(4) COMP. 10 FILLER PIC X(4). 10 KADEME PIC S9(4) COMP. 10 FILLER PIC X(3). 10 GOSTERGE PIC S9(4) COMP. 10 FILLER PIC X(6). 02 FILLER PIC X(4) VALUE "*END". *----------------------------------------------------------------- * RECORD NAME = KATSAYI * TABLE NAME = BORDRO.KATSAYI * SQL ROW ITEM SQL COLUMN * DONEM_TARIH DONEM_TARIH * MAAS_KSAYI MAAS_KSAYI * TABAN_AY_KSAYI TABAN_AY_KSAYI * YAN_ODE_KSAYI YAN_ODE_KSAYI * VRG_DILIM_1 VRG_DILIM_1 * VRG_ORAN_1 VRG_ORAN_1 * VRG_DILIM_2 VRG_DILIM_1 * VRG_ORAN_2 VRG_ORAN_1 * VRG_DILIM_3 VRG_DILIM_1 * VRG_ORAN_3 VRG_ORAN_1 * VRG_DILIM_4 VRG_DILIM_1 * VRG_ORAN_4 VRG_ORAN_1 * VRG_DILIM_5 VRG_DILIM_1 * VRG_ORAN_5 VRG_ORAN_1 * VRG_ORAN_6 VRG_ORAN_1 * DMG_VRG_ORAN DMG_VRG_ORAN * YDIL_A_KSAYI YDIL_A_KSAYI * YDIL_B_KSAYI YDIL_B_KSAYI * YDIL_C_KSAYI YDIL_C_KSAYI * COCUK_KSAYI COCUK_KSAYI * EMEKLI_SAHIS_PAY EMEKLI_SAHIS_PAY * EMEKLI_KURUM_PAY EMEKLI_KURUM_PAY *----------------------------------------------------------------- 01 EZESTA-KATSAYI-GP. 02 EZESTA-ID PIC X(8) VALUE "ELAASGSR". 02 EZESTA-KATSAYI-LL PIC S9(8) COMP VALUE +211. 02 EZESTA-KATSAYI-RC PIC S9(2) VALUE 00. 88 EZESTA-KATSAYI-OK VALUE 00. 88 EZESTA-KATSAYI-ERR VALUES ARE -99 THRU -01 01 THRU 99. 88 EZESTA-KATSAYI-SFT VALUES ARE 01 THRU 99. 88 EZESTA-KATSAYI-DED VALUE -01. 88 EZESTA-KATSAYI-DUP VALUE -05. 88 EZESTA-KATSAYI-EOF VALUE 03 07. 88 EZESTA-KATSAYI-NRF VALUE 04 07. 88 EZESTA-KATSAYI-UNQ VALUE -05. 88 EZESTA-KATSAYI-HRD VALUES ARE -99 THRU -01. 88 EZESTA-KATSAYI-FUL VALUE -06. 88 EZESTA-KATSAYI-FNA VALUE -07. 88 EZESTA-KATSAYI-FMT VALUE -08. 88 EZESTA-KATSAYI-FNF VALUE -09. 88 EZESTA-KATSAYI-LOK VALUE -10. 02 FILLER PIC X(18) VALUE "KATSAYI". *----------------------------------------------------------------- * RECORD NAME : KATSAYI * FILE ORGANIZATION : SQLROW * MODIFICATION DATE : 02.06.2000 * MODIFICATION TIME : 14:54:09 * RECORD PROLOGUE : * *----------------------------------------------------------------- 02 KATSAYI. 10 FILLER PIC X(4). * DONEM_TARIH WAS RENAMED TO DONEM-TARIH 10 DONEM-TARIH PIC X(10) USAGE DISPLAY. 10 FILLER PIC X(4). * MAAS_KSAYI WAS RENAMED TO MAAS-KSAYI 10 MAAS-KSAYI PIC S9(9) USAGE COMP. 10 FILLER PIC X(4). * TABAN_AY_KSAYI WAS RENAMED TO TABAN-AY-KSAYI 10 TABAN-AY-KSAYI PIC S9(9) USAGE COMP. 10 FILLER PIC X(4). * YAN_ODE_KSAYI WAS RENAMED TO YAN-ODE-KSAYI 10 YAN-ODE-KSAYI PIC S9(9) USAGE COMP. 10 FILLER PIC X(4). * VRG_DILIM_1 WAS RENAMED TO VRG-DILIM-1 10 VRG-DILIM-1 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). * VRG_ORAN_1 WAS RENAMED TO VRG-ORAN-1 10 VRG-ORAN-1 PIC S9(4) USAGE COMP. 10 FILLER PIC X(4). * VRG_DILIM_1 WAS RENAMED TO VRG-DILIM-2 10 VRG-DILIM-2 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). * VRG_ORAN_1 WAS RENAMED TO VRG-ORAN-2 10 VRG-ORAN-2 PIC S9(4) USAGE COMP. 10 FILLER PIC X(4). * VRG_DILIM_1 WAS RENAMED TO VRG-DILIM-3 10 VRG-DILIM-3 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). * VRG_ORAN_1 WAS RENAMED TO VRG-ORAN-3 10 VRG-ORAN-3 PIC S9(4) USAGE COMP. 10 FILLER PIC X(4). * VRG_DILIM_1 WAS RENAMED TO VRG-DILIM-4 10 VRG-DILIM-4 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). * VRG_ORAN_1 WAS RENAMED TO VRG-ORAN-4 10 VRG-ORAN-4 PIC S9(4) USAGE COMP. 10 FILLER PIC X(4). * VRG_DILIM_1 WAS RENAMED TO VRG-DILIM-5 10 VRG-DILIM-5 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). * VRG_ORAN_1 WAS RENAMED TO VRG-ORAN-5 10 VRG-ORAN-5 PIC S9(4) USAGE COMP. 10 FILLER PIC X(4). * VRG_ORAN_1 WAS RENAMED TO VRG-ORAN-6 10 VRG-ORAN-6 PIC S9(4) USAGE COMP. 10 FILLER PIC X(4). * DMG_VRG_ORAN WAS RENAMED TO DMG-VRG-ORAN 10 DMG-VRG-ORAN PIC S9(4) USAGE COMP. 10 FILLER PIC X(4). * YDIL_A_KSAYI WAS RENAMED TO YDIL-A-KSAYI 10 YDIL-A-KSAYI PIC S9(9) USAGE COMP. 10 FILLER PIC X(4). * YDIL_B_KSAYI WAS RENAMED TO YDIL-B-KSAYI 10 YDIL-B-KSAYI PIC S9(9) USAGE COMP. 10 FILLER PIC X(4). * YDIL_C_KSAYI WAS RENAMED TO YDIL-C-KSAYI 10 YDIL-C-KSAYI PIC S9(9) USAGE COMP. 10 FILLER PIC X(4). * COCUK_KSAYI WAS RENAMED TO COCUK-KSAYI 10 COCUK-KSAYI PIC S9(9) USAGE COMP. 10 FILLER PIC X(4). * EMEKLI_SAHIS_PAY WAS RENAMED TO EMEKLI-SAHIS-PAY 10 EMEKLI-SAHIS-PAY PIC S9(9) USAGE COMP. 10 FILLER PIC X(4). * EMEKLI_KURUM_PAY WAS RENAMED TO EMEKLI-KURUM-PAY 10 EMEKLI-KURUM-PAY PIC S9(9) USAGE COMP. 02 EZESQL-KATSAYI-H REDEFINES KATSAYI. 10 FILLER PIC X(4). 10 DONEM-TARIH PIC X(10) USAGE DISPLAY. 10 FILLER PIC X(4). 10 MAAS-KSAYI PIC S9(9) USAGE COMP. 10 FILLER PIC X(4). 10 TABAN-AY-KSAYI PIC S9(9) USAGE COMP. 10 FILLER PIC X(4). 10 YAN-ODE-KSAYI PIC S9(9) USAGE COMP. 10 FILLER PIC X(4). 10 VRG-DILIM-1 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). 10 VRG-ORAN-1 PIC S9(4) USAGE COMP. 10 FILLER PIC X(4). 10 VRG-DILIM-2 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). 10 VRG-ORAN-2 PIC S9(4) USAGE COMP. 10 FILLER PIC X(4). 10 VRG-DILIM-3 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). 10 VRG-ORAN-3 PIC S9(4) USAGE COMP. 10 FILLER PIC X(4). 10 VRG-DILIM-4 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). 10 VRG-ORAN-4 PIC S9(4) USAGE COMP. 10 FILLER PIC X(4). 10 VRG-DILIM-5 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). 10 VRG-ORAN-5 PIC S9(4) USAGE COMP. 10 FILLER PIC X(4). 10 VRG-ORAN-6 PIC S9(4) USAGE COMP. 10 FILLER PIC X(4). 10 DMG-VRG-ORAN PIC S9(4) USAGE COMP. 10 FILLER PIC X(4). 10 YDIL-A-KSAYI PIC S9(9) USAGE COMP. 10 FILLER PIC X(4). 10 YDIL-B-KSAYI PIC S9(9) USAGE COMP. 10 FILLER PIC X(4). 10 YDIL-C-KSAYI PIC S9(9) USAGE COMP. 10 FILLER PIC X(4). 10 COCUK-KSAYI PIC S9(9) USAGE COMP. 10 FILLER PIC X(4). 10 EMEKLI-SAHIS-PAY PIC S9(9) USAGE COMP. 10 FILLER PIC X(4). 10 EMEKLI-KURUM-PAY PIC S9(9) USAGE COMP. 02 EZESQL-KATSAYI-I REDEFINES KATSAYI. 10 DONEM-TARIH PIC S9(4) COMP. 10 FILLER PIC X(12). 10 MAAS-KSAYI PIC S9(4) COMP. 10 FILLER PIC X(6). 10 TABAN-AY-KSAYI PIC S9(4) COMP. 10 FILLER PIC X(6). 10 YAN-ODE-KSAYI PIC S9(4) COMP. 10 FILLER PIC X(6). 10 VRG-DILIM-1 PIC S9(4) COMP. 10 FILLER PIC X(9). 10 VRG-ORAN-1 PIC S9(4) COMP. 10 FILLER PIC X(4). 10 VRG-DILIM-2 PIC S9(4) COMP. 10 FILLER PIC X(9). 10 VRG-ORAN-2 PIC S9(4) COMP. 10 FILLER PIC X(4). 10 VRG-DILIM-3 PIC S9(4) COMP. 10 FILLER PIC X(9). 10 VRG-ORAN-3 PIC S9(4) COMP. 10 FILLER PIC X(4). 10 VRG-DILIM-4 PIC S9(4) COMP. 10 FILLER PIC X(9). 10 VRG-ORAN-4 PIC S9(4) COMP. 10 FILLER PIC X(4). 10 VRG-DILIM-5 PIC S9(4) COMP. 10 FILLER PIC X(9). 10 VRG-ORAN-5 PIC S9(4) COMP. 10 FILLER PIC X(4). 10 VRG-ORAN-6 PIC S9(4) COMP. 10 FILLER PIC X(4). 10 DMG-VRG-ORAN PIC S9(4) COMP. 10 FILLER PIC X(4). 10 YDIL-A-KSAYI PIC S9(4) COMP. 10 FILLER PIC X(6). 10 YDIL-B-KSAYI PIC S9(4) COMP. 10 FILLER PIC X(6). 10 YDIL-C-KSAYI PIC S9(4) COMP. 10 FILLER PIC X(6). 10 COCUK-KSAYI PIC S9(4) COMP. 10 FILLER PIC X(6). 10 EMEKLI-SAHIS-PAY PIC S9(4) COMP. 10 FILLER PIC X(6). 10 EMEKLI-KURUM-PAY PIC S9(4) COMP. 10 FILLER PIC X(6). 02 FILLER PIC X(4) VALUE "*END". *----------------------------------------------------------------- * RECORD NAME = MAAS * TABLE NAME = BORDRO.MAAS * SQL ROW ITEM SQL COLUMN * SICIL SICIL * ESKI_DERECE ESKI_DERECE * ESKI_KADEME ESKI_KADEME * ESKI_EKGOSTERGE ESKI_EKGOSTERGE * ESKI_KIDEM ESKI_KIDEM * DERECE DERECE * KADEME KADEME * EKGOSTERGE EKGOSTERGE * KIDEM KIDEM * IS_GUC_PUAN IS_GUC_PUAN * IS_GUCLUGU IS_GUCLUGU * ELTEM_PUAN ELTEM_PUAN * ELTEM_GUCLUGU ELTEM_GUCLUGU * OZEL_HIZMET_YZD ozel_hizmet_yzd * OZEL_HIZMET_TAZ ozel_hizmet_taz * MAKAM_PUAN MAKAM_PUAN * MAKAM_TAZ MAKAM_TAZ * MALI_SOR_PUAN MALI_SOR_PUAN * MALI_SORUMLULUK_TAZ MALI_SORUMLULUK_TAZ * YABANCI_DIL_SEVIYE YABANCI_DIL_SEVIYE * YABANCI_DIL_TAZ YABANCI_DIL_TAZ * LOJMAN_TAZ LOJMAN_TAZ * AILE_YARDIM_PUAN AILE_YARDIM_PUAN * AILE_YARDIM_TAZ AILE_YARDIM_TAZ * COCUK_SAYI COCUK_SAYI * COCUK_TAZ COCUK_TAZ * GELIR_VERGI GELIR_VERGI * DAMGA_VERGI DAMGA_VERGI * YUKSELIS_KES YUKSELIS_KES * EMEKLI_AIDAT_SAH EMEKLI_AIDAT_SAH * EMEKLI_AIDAT_KUR EMEKLI_AIDAT_KUR * VAKIF_AIDAT VAKIF_AIDAT * SAGLIK_AIDAT SAGLIK_AIDAT * VAKIF_KREDI VAKIF_KREDI * KAMP KAMP * YEMEK YEMEK * LOKAL LOKAL * KRES KRES * ICRA ICRA * HARCIRAH HARCIRAH * NET_MAAS NET_MAAS * TOP_MATRAH TOP_MATRAH *----------------------------------------------------------------- 01 EZESTA-MAAS-GP. 02 EZESTA-ID PIC X(8) VALUE "ELAASGSR". 02 EZESTA-MAAS-LL PIC S9(8) COMP VALUE +422. 02 EZESTA-MAAS-RC PIC S9(2) VALUE 00. 88 EZESTA-MAAS-OK VALUE 00. 88 EZESTA-MAAS-ERR VALUES ARE -99 THRU -01 01 THRU 99. 88 EZESTA-MAAS-SFT VALUES ARE 01 THRU 99. 88 EZESTA-MAAS-DED VALUE -01. 88 EZESTA-MAAS-DUP VALUE -05. 88 EZESTA-MAAS-EOF VALUE 03 07. 88 EZESTA-MAAS-NRF VALUE 04 07. 88 EZESTA-MAAS-UNQ VALUE -05. 88 EZESTA-MAAS-HRD VALUES ARE -99 THRU -01. 88 EZESTA-MAAS-FUL VALUE -06. 88 EZESTA-MAAS-FNA VALUE -07. 88 EZESTA-MAAS-FMT VALUE -08. 88 EZESTA-MAAS-FNF VALUE -09. 88 EZESTA-MAAS-LOK VALUE -10. 02 FILLER PIC X(18) VALUE "MAAS". *----------------------------------------------------------------- * RECORD NAME : MAAS * FILE ORGANIZATION : SQLROW * RECORD KEY : SICIL * MODIFICATION DATE : 02.06.2000 * MODIFICATION TIME : 18:25:01 * RECORD PROLOGUE : * *----------------------------------------------------------------- 02 MAAS. 10 FILLER PIC X(4). 10 SICIL PIC X(5) USAGE DISPLAY. 10 FILLER PIC X(4). * ESKI_DERECE WAS RENAMED TO EZEI-1 10 EZEI-1 PIC X(2) USAGE DISPLAY. 10 FILLER PIC X(4). * ESKI_KADEME WAS RENAMED TO EZEI-2 10 EZEI-2 PIC X(1) USAGE DISPLAY. 10 FILLER PIC X(4). * ESKI_EKGOSTERGE WAS RENAMED TO EZEI-3 10 EZEI-3 PIC S9(9) USAGE COMP. 10 FILLER PIC X(4). * ESKI_KIDEM WAS RENAMED TO EZEI-4 10 EZEI-4 PIC S9(4) USAGE COMP. 10 FILLER PIC X(4). 10 DERECE PIC X(2) USAGE DISPLAY. 10 FILLER PIC X(4). 10 KADEME PIC X(1) USAGE DISPLAY. 10 FILLER PIC X(4). 10 EKGOSTERGE PIC S9(9) USAGE COMP. 10 FILLER PIC X(4). 10 KIDEM PIC S9(4) USAGE COMP. 10 FILLER PIC X(4). * IS_GUC_PUAN WAS RENAMED TO EZEI-5 10 EZEI-5 PIC S9(9) USAGE COMP. 10 FILLER PIC X(4). * IS_GUCLUGU WAS RENAMED TO EZEI-6 10 EZEI-6 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). * ELTEM_PUAN WAS RENAMED TO EZEI-7 10 EZEI-7 PIC S9(9) USAGE COMP. 10 FILLER PIC X(4). * ELTEM_GUCLUGU WAS RENAMED TO EZEI-8 10 EZEI-8 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). * ozel_hizmet_yzd WAS RENAMED TO EZEI-9 10 EZEI-9 PIC S9(9) USAGE COMP. 10 FILLER PIC X(4). * ozel_hizmet_taz WAS RENAMED TO EZEI-10 10 EZEI-10 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). * MAKAM_PUAN WAS RENAMED TO EZEI-11 10 EZEI-11 PIC S9(9) USAGE COMP. 10 FILLER PIC X(4). * MAKAM_TAZ WAS RENAMED TO EZEI-12 10 EZEI-12 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). * MALI_SOR_PUAN WAS RENAMED TO EZEI-13 10 EZEI-13 PIC S9(9) USAGE COMP. 10 FILLER PIC X(4). * MALI_SORUMLULUK_TAZ WAS RENAMED TO EZEI-14 10 EZEI-14 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). * YABANCI_DIL_SEVIYE WAS RENAMED TO EZEI-15 10 EZEI-15 PIC X(1) USAGE DISPLAY. 10 FILLER PIC X(4). * YABANCI_DIL_TAZ WAS RENAMED TO EZEI-16 10 EZEI-16 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). * LOJMAN_TAZ WAS RENAMED TO EZEI-17 10 EZEI-17 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). * AILE_YARDIM_PUAN WAS RENAMED TO EZEI-18 10 EZEI-18 PIC S9(9) USAGE COMP. 10 FILLER PIC X(4). * AILE_YARDIM_TAZ WAS RENAMED TO EZEI-19 10 EZEI-19 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). * COCUK_SAYI WAS RENAMED TO EZEI-20 10 EZEI-20 PIC S9(4) USAGE COMP. 10 FILLER PIC X(4). * COCUK_TAZ WAS RENAMED TO EZEI-21 10 EZEI-21 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). * GELIR_VERGI WAS RENAMED TO EZEI-22 10 EZEI-22 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). * DAMGA_VERGI WAS RENAMED TO EZEI-23 10 EZEI-23 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). * YUKSELIS_KES WAS RENAMED TO EZEI-24 10 EZEI-24 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). * EMEKLI_AIDAT_SAH WAS RENAMED TO EZEI-25 10 EZEI-25 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). * EMEKLI_AIDAT_KUR WAS RENAMED TO EZEI-26 10 EZEI-26 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). * VAKIF_AIDAT WAS RENAMED TO EZEI-27 10 EZEI-27 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). * SAGLIK_AIDAT WAS RENAMED TO EZEI-28 10 EZEI-28 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). * VAKIF_KREDI WAS RENAMED TO EZEI-29 10 EZEI-29 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). 10 KAMP PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). 10 YEMEK PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). 10 LOKAL PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). 10 KRES PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). 10 ICRA PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). 10 HARCIRAH PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). * NET_MAAS WAS RENAMED TO EZEI-30 10 EZEI-30 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). * TOP_MATRAH WAS RENAMED TO EZEI-31 10 EZEI-31 PIC S9(15) USAGE COMP-3. 02 EZESQL-MAAS-H REDEFINES MAAS. 10 FILLER PIC X(4). 10 SICIL PIC X(5) USAGE DISPLAY. 10 FILLER PIC X(4). 10 EZEI-1 PIC X(2) USAGE DISPLAY. 10 FILLER PIC X(4). 10 EZEI-2 PIC X(1) USAGE DISPLAY. 10 FILLER PIC X(4). 10 EZEI-3 PIC S9(9) USAGE COMP. 10 FILLER PIC X(4). 10 EZEI-4 PIC S9(4) USAGE COMP. 10 FILLER PIC X(4). 10 DERECE PIC X(2) USAGE DISPLAY. 10 FILLER PIC X(4). 10 KADEME PIC X(1) USAGE DISPLAY. 10 FILLER PIC X(4). 10 EKGOSTERGE PIC S9(9) USAGE COMP. 10 FILLER PIC X(4). 10 KIDEM PIC S9(4) USAGE COMP. 10 FILLER PIC X(4). 10 EZEI-5 PIC S9(9) USAGE COMP. 10 FILLER PIC X(4). 10 EZEI-6 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). 10 EZEI-7 PIC S9(9) USAGE COMP. 10 FILLER PIC X(4). 10 EZEI-8 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). 10 EZEI-9 PIC S9(9) USAGE COMP. 10 FILLER PIC X(4). 10 EZEI-10 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). 10 EZEI-11 PIC S9(9) USAGE COMP. 10 FILLER PIC X(4). 10 EZEI-12 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). 10 EZEI-13 PIC S9(9) USAGE COMP. 10 FILLER PIC X(4). 10 EZEI-14 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). 10 EZEI-15 PIC X(1) USAGE DISPLAY. 10 FILLER PIC X(4). 10 EZEI-16 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). 10 EZEI-17 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). 10 EZEI-18 PIC S9(9) USAGE COMP. 10 FILLER PIC X(4). 10 EZEI-19 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). 10 EZEI-20 PIC S9(4) USAGE COMP. 10 FILLER PIC X(4). 10 EZEI-21 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). 10 EZEI-22 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). 10 EZEI-23 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). 10 EZEI-24 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). 10 EZEI-25 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). 10 EZEI-26 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). 10 EZEI-27 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). 10 EZEI-28 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). 10 EZEI-29 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). 10 KAMP PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). 10 YEMEK PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). 10 LOKAL PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). 10 KRES PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). 10 ICRA PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). 10 HARCIRAH PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). 10 EZEI-30 PIC S9(13) USAGE COMP-3. 10 FILLER PIC X(4). 10 EZEI-31 PIC S9(15) USAGE COMP-3. 02 EZESQL-MAAS-I REDEFINES MAAS. 10 SICIL PIC S9(4) COMP. 10 FILLER PIC X(7). 10 EZEI-1 PIC S9(4) COMP. 10 FILLER PIC X(4). 10 EZEI-2 PIC S9(4) COMP. 10 FILLER PIC X(3). 10 EZEI-3 PIC S9(4) COMP. 10 FILLER PIC X(6). 10 EZEI-4 PIC S9(4) COMP. 10 FILLER PIC X(4). 10 DERECE PIC S9(4) COMP. 10 FILLER PIC X(4). 10 KADEME PIC S9(4) COMP. 10 FILLER PIC X(3). 10 EKGOSTERGE PIC S9(4) COMP. 10 FILLER PIC X(6). 10 KIDEM PIC S9(4) COMP. 10 FILLER PIC X(4). 10 EZEI-5 PIC S9(4) COMP. 10 FILLER PIC X(6). 10 EZEI-6 PIC S9(4) COMP. 10 FILLER PIC X(9). 10 EZEI-7 PIC S9(4) COMP. 10 FILLER PIC X(6). 10 EZEI-8 PIC S9(4) COMP. 10 FILLER PIC X(9). 10 EZEI-9 PIC S9(4) COMP. 10 FILLER PIC X(6). 10 EZEI-10 PIC S9(4) COMP. 10 FILLER PIC X(9). 10 EZEI-11 PIC S9(4) COMP. 10 FILLER PIC X(6). 10 EZEI-12 PIC S9(4) COMP. 10 FILLER PIC X(9). 10 EZEI-13 PIC S9(4) COMP. 10 FILLER PIC X(6). 10 EZEI-14 PIC S9(4) COMP. 10 FILLER PIC X(9). 10 EZEI-15 PIC S9(4) COMP. 10 FILLER PIC X(3). 10 EZEI-16 PIC S9(4) COMP. 10 FILLER PIC X(9). 10 EZEI-17 PIC S9(4) COMP. 10 FILLER PIC X(9). 10 EZEI-18 PIC S9(4) COMP. 10 FILLER PIC X(6). 10 EZEI-19 PIC S9(4) COMP. 10 FILLER PIC X(9). 10 EZEI-20 PIC S9(4) COMP. 10 FILLER PIC X(4). 10 EZEI-21 PIC S9(4) COMP. 10 FILLER PIC X(9). 10 EZEI-22 PIC S9(4) COMP. 10 FILLER PIC X(9). 10 EZEI-23 PIC S9(4) COMP. 10 FILLER PIC X(9). 10 EZEI-24 PIC S9(4) COMP. 10 FILLER PIC X(9). 10 EZEI-25 PIC S9(4) COMP. 10 FILLER PIC X(9). 10 EZEI-26 PIC S9(4) COMP. 10 FILLER PIC X(9). 10 EZEI-27 PIC S9(4) COMP. 10 FILLER PIC X(9). 10 EZEI-28 PIC S9(4) COMP. 10 FILLER PIC X(9). 10 EZEI-29 PIC S9(4) COMP. 10 FILLER PIC X(9). 10 KAMP PIC S9(4) COMP. 10 FILLER PIC X(9). 10 YEMEK PIC S9(4) COMP. 10 FILLER PIC X(9). 10 LOKAL PIC S9(4) COMP. 10 FILLER PIC X(9). 10 KRES PIC S9(4) COMP. 10 FILLER PIC X(9). 10 ICRA PIC S9(4) COMP. 10 FILLER PIC X(9). 10 HARCIRAH PIC S9(4) COMP. 10 FILLER PIC X(9). 10 EZEI-30 PIC S9(4) COMP. 10 FILLER PIC X(9). 10 EZEI-31 PIC S9(4) COMP. 10 FILLER PIC X(10). 02 FILLER PIC X(4) VALUE "*END". *----------------------------------------------------------------- * TEMPORARY HOST VARIABLES *----------------------------------------------------------------- 01 EZESQLTMP-VARIABLES. 05 EZESQLTMP-ID PIC X(8) VALUE "ELAASGST". 05 EZESQLTMP-PACK-7-0-1-1 PIC S9(12) USAGE COMP-3. 05 EZESQLTMP-PACK-7-0-1-2 PIC S9(12) USAGE COMP-3. 05 EZESQLTMP-PACK-7-0-1-3 PIC S9(12) USAGE COMP-3. 05 EZESQLTMP-PACK-7-0-1-4 PIC S9(12) USAGE COMP-3. 05 EZESQLTMP-PACK-7-0-1-5 PIC S9(12) USAGE COMP-3. 05 EZESQLTMP-PACK-7-0-1-6 PIC S9(12) USAGE COMP-3. 05 EZESQLTMP-PACK-7-0-1-7 PIC S9(12) USAGE COMP-3. 05 EZESQLTMP-PACK-7-0-1-8 PIC S9(12) USAGE COMP-3. 05 EZESQLTMP-PACK-7-0-1-9 PIC S9(12) USAGE COMP-3. 05 EZESQLTMP-PACK-7-0-1-10 PIC S9(12) USAGE COMP-3. 05 EZESQLTMP-PACK-7-0-1-11 PIC S9(12) USAGE COMP-3. 05 EZESQLTMP-PACK-7-0-1-12 PIC S9(12) USAGE COMP-3. 05 EZESQLTMP-PACK-7-0-1-13 PIC S9(12) USAGE COMP-3. 05 EZESQLTMP-PACK-7-0-1-14 PIC S9(12) USAGE COMP-3. LINKAGE SECTION. 01 DFHCOMMAREA. 05 EZECOMMAREA PIC X(32763). 05 EZECOMMAREA-MAPPED REDEFINES EZECOMMAREA. 10 EZECOMMAREA-SSM-STATUS PIC X. 10 EZECOMMAREA-MAP-NAME PIC X(8). 10 EZECOMMAREA-RESERVED-0 PIC X. 10 EZECOMMAREA-USER-AREA PIC X(32753). 05 EZECOMMAREA-POINTERS REDEFINES EZECOMMAREA. 10 EZECOMMAREA-PTR USAGE IS POINTER OCCURS 8190 TIMES. 10 EZECOMMAREA-PTR-RSVD PIC X(3). * RTS CONTROL BLOCK COPY ELARHRTS REPLACING ==SYNCHRONIZED EXTERNAL== BY ==SYNCHRONIZED==. * RTS NLS-DEPENDENT INSTALLATION OPTIONS CONTROL BLOCK COPY ELARHIOE. * RTS NLS-INDEPENDENT INSTALLATION OPTIONS CONTROL BLOCK COPY ELARHIOP. * RESOURCE CONTROL BLOCK COPY ELARHRSC. * STATIC CONTROL BLOCK COPY ELARHSCB. *----------------------------------------------------------------- * RECORD NAME : VDBCONTROL * FILE ORGANIZATION : WORKSTOR * MODIFICATION DATE : 01.06.2000 * MODIFICATION TIME : 10:49:21 * RECORD PROLOGUE : * ************************************************************ * * Record : VDBCONTROL * * * * Function : Database and control information to pass * * between umbrella and atomic server * * applications. * * ************************************************************ *----------------------------------------------------------------- 01 EZERCD-VDBCONTROL-GP. 02 VDBCONTROL. * Database Control Record Item 05 UDBCONTROL PIC X(74) USAGE DISPLAY. 05 EZE-REDEF-4 REDEFINES UDBCONTROL. * Return Code (CHA) 06 URCCHAR PIC X(3) USAGE DISPLAY. 06 EZE-REDEF-5 REDEFINES URCCHAR. * Return Code 07 URC PIC S9(3) USAGE DISPLAY. * Rollback Required Flag 06 UROLLBACK PIC X(1) USAGE DISPLAY. * Error Message Inserts from SQL 06 UEZESQRRM PIC X(70) USAGE DISPLAY. * Database Local Area 05 UDBLOCAL PIC X(11) USAGE DISPLAY. 05 EZE-REDEF-6 REDEFINES UDBLOCAL. * SQL Access Type 06 UACCTYP PIC X(1) USAGE DISPLAY. * Access Type Save 06 UACCSAV PIC X(1) USAGE DISPLAY. * Rows Read Counter 06 UROWR PIC S9(9) USAGE COMP. * Rows Written Counter 06 UROWW PIC S9(9) USAGE COMP. * Req. I/O (ISUD) or List (LFB) 06 UIOTYPE PIC X(1) USAGE DISPLAY. * NRF Flag 05 UNRF PIC X(1) USAGE DISPLAY. * HIGH-VALUE WAS RENAMED TO EZEI-HIGH-VALUE 05 EZEI-HIGH-VALUE PIC X(1) USAGE DISPLAY. 05 EZE-REDEF-7 REDEFINES EZEI-HIGH-VALUE. 06 HIGH-VALUE-HEX PIC X(1) USAGE DISPLAY. * LOW-VALUE WAS RENAMED TO EZEI-LOW-VALUE 05 EZEI-LOW-VALUE PIC X(1) USAGE DISPLAY. 05 EZE-REDEF-8 REDEFINES EZEI-LOW-VALUE. 06 LOW-VALUE-HEX PIC X(1) USAGE DISPLAY. * HIGH-VALUES WAS RENAMED TO EZEI-HIGH-VALUES 05 EZEI-HIGH-VALUES PIC X(100) USAGE DISPLAY. 05 EZE-REDEF-9 REDEFINES EZEI-HIGH-VALUES. 06 HIGH-VALUES-CHAR PIC X(1) OCCURS 100 INDEXED BY EZEIDX1 USAGE DISPLAY. * LOW-VALUES WAS RENAMED TO EZEI-LOW-VALUES 05 EZEI-LOW-VALUES PIC X(100) USAGE DISPLAY. 05 EZE-REDEF-10 REDEFINES EZEI-LOW-VALUES. 06 LOW-VALUES-CHAR PIC X(1) OCCURS 100 INDEXED BY EZEIDX2 USAGE DISPLAY. *----------------------------------------------------------------- * RECORD NAME : VMESSAGE * FILE ORGANIZATION : WORKSTOR * MODIFICATION DATE : 01.06.2000 * MODIFICATION TIME : 10:49:43 * RECORD PROLOGUE : * ************************************************************ * * Record : VMESSAGE * * * * Function : Message record. * * * ************************************************************ *----------------------------------------------------------------- 01 EZERCD-VMESSAGE-GP. 02 VMESSAGE. 05 UMSGCONTROL PIC X(224) USAGE DISPLAY. 05 EZE-REDEF-11 REDEFINES UMSGCONTROL. * Message Code 06 UMSGCODE PIC X(8) USAGE DISPLAY. * Message Insert 06 UMSGINS PIC X(30) OCCURS 3 INDEXED BY EZEIDX3 USAGE DISPLAY. * Message Text 06 UMESSAGE PIC X(125) USAGE DISPLAY. * Message Type 06 UMSGTYPE PIC X(1) USAGE DISPLAY. EXEC SQL DECLARE EZE001001THKKM1 CURSOR FOR SELECT GOSTERGE FROM BORDRO.DER_KAD T1 WHERE DERECE = :EZESQL-DER-KAD-H.DERECE:EZESQL-DER-KAD-I.DERECE AND KADEME = :EZESQL-DER-KAD-H.KADEME:EZESQL-DER-KAD-I.KADEME END-EXEC. EXEC SQL DECLARE EZE002001THKKM1 CURSOR FOR SELECT MAAS_KSAYI , TABAN_AY_KSAYI , YAN_ODE_KSAYI , VRG_DILIM_1 , VRG_ORAN_1 , VRG_DILIM_1 , VRG_ORAN_1 , VRG_DILIM_1 , VRG_ORAN_1 , VRG_DILIM_1 , VRG_ORAN_1 , VRG_DILIM_1 , VRG_ORAN_1 , VRG_ORAN_1 , DMG_VRG_ORAN , YDIL_A_KSAYI , YDIL_B_KSAYI , YDIL_C_KSAYI , COCUK_KSAYI , EMEKLI_SAHIS_PAY , EMEKLI_KURUM_PAY FROM BORDRO.KATSAYI T1 WHERE DONEM_TARIH = (SELECT MAX (DONEM_TARIH ) FROM BORDRO.KATSAYI ) END-EXEC. EXEC SQL DECLARE EZE003001THKKM1 CURSOR FOR SELECT SICIL , ESKI_DERECE , ESKI_KADEME , ESKI_EKGOSTERGE , ESKI_KIDEM , DERECE , KADEME , EKGOSTERGE , KIDEM , IS_GUC_PUAN , ELTEM_PUAN , OZEL_HIZMET_YZD , MAKAM_PUAN , MALI_SOR_PUAN , YABANCI_DIL_SEVIYE , LOJMAN_TAZ , AILE_YARDIM_PUAN , COCUK_SAYI , VAKIF_AIDAT , SAGLIK_AIDAT , VAKIF_KREDI , KAMP , YEMEK , LOKAL , KRES , ICRA , HARCIRAH FROM BORDRO.MAAS T1 END-EXEC. *----------------------------------------------------------------- * SQL CURSOR CONTROL BLOCKS *----------------------------------------------------------------- 01 EZECRS-CURSOR-BLOCKS. 02 EZECRS-ID PIC X(8). 02 EZECRS-CNT PIC S9(4) COMP. *----------------------------------------------------------------- * CURSOR CONTROL BLOCK FOR SQL ROW DER-KAD *----------------------------------------------------------------- 02 EZECRS-DER-KAD-CB. 05 EZECRS-DER-KAD-TYP PIC X(4). 88 EZECRS-DER-KAD-SETI VALUE "SETI". 88 EZECRS-DER-KAD-SETU VALUE "SETU". 88 EZECRS-DER-KAD-SIWH VALUE "SIWH". 88 EZECRS-DER-KAD-SUWH VALUE "SUWH". 88 EZECRS-DER-KAD-UPDT VALUE "UPDT". 88 EZECRS-DER-KAD-INQU VALUE "INQU". 05 EZECRS-DER-KAD-ID PIC S9(4) COMP. 88 EZECRS-DER-KAD-CLOS VALUE 0. *----------------------------------------------------------------- * CURSOR CONTROL BLOCK FOR SQL ROW KATSAYI *----------------------------------------------------------------- 02 EZECRS-KATSAYI-CB. 05 EZECRS-KATSAYI-TYP PIC X(4). 88 EZECRS-KATSAYI-SETI VALUE "SETI". 88 EZECRS-KATSAYI-SETU VALUE "SETU". 88 EZECRS-KATSAYI-SIWH VALUE "SIWH". 88 EZECRS-KATSAYI-SUWH VALUE "SUWH". 88 EZECRS-KATSAYI-UPDT VALUE "UPDT". 88 EZECRS-KATSAYI-INQU VALUE "INQU". 05 EZECRS-KATSAYI-ID PIC S9(4) COMP. 88 EZECRS-KATSAYI-CLOS VALUE 0. *----------------------------------------------------------------- * CURSOR CONTROL BLOCK FOR SQL ROW MAAS *----------------------------------------------------------------- 02 EZECRS-MAAS-CB. 05 EZECRS-MAAS-TYP PIC X(4). 88 EZECRS-MAAS-SETI VALUE "SETI". 88 EZECRS-MAAS-SETU VALUE "SETU". 88 EZECRS-MAAS-SIWH VALUE "SIWH". 88 EZECRS-MAAS-SUWH VALUE "SUWH". 88 EZECRS-MAAS-UPDT VALUE "UPDT". 88 EZECRS-MAAS-INQU VALUE "INQU". 05 EZECRS-MAAS-ID PIC S9(4) COMP. 88 EZECRS-MAAS-CLOS VALUE 0. PROCEDURE DIVISION. *----------------------------------------------------------------- * MAIN PROCESS *----------------------------------------------------------------- EZEMAIN-PROCESS SECTION. PERFORM EZECONTROL GOBACK. *----------------------------------------------------------------- * BEGIN PROCESS *----------------------------------------------------------------- EZEBEGIN-PROCESSES SECTION. CONTINUE. *----------------------------------------------------------------- * SQL PROCESS OPTIONS BYPASS *----------------------------------------------------------------- EZESQL-PROCESS-BYPASS SECTION. GO TO THKKM1-MAIN. EZESQL-PROCESS-BYPASS-X. EXIT. *----------------------------------------------------------------- * SQL PROCESS OPTIONS * * SQL CLOSE CURSOR AND PROCESS OPTIONS SECTIONS ARE PLACED AT THE * TOP OF THE PROGRAM. * THE SQL PREPROCESSOR DOES NOT PROCESS EXEC SQL STATEMENTS AFTER * 32,767. *----------------------------------------------------------------- *----------------------------------------------------------------- * CLOSE CURSOR FOR SQL ROW DER_KAD *----------------------------------------------------------------- EZECLOSCU-DER-KAD SECTION. MOVE SPACES TO EZECRS-DER-KAD-TYP IF EZECRS-DER-KAD-CLOS GO TO EZECLOSCU-DER-KAD-X END-IF IF EZECRS-DER-KAD-ID = 1 EXEC SQL CLOSE EZE001001THKKM1 END-EXEC END-IF SET EZECRS-DER-KAD-CLOS TO TRUE MOVE "CLOSE" TO EZERTS-SQL-COMMAND PERFORM EZESQL-ERROR-ROUTINE IF EZERTS-PRC-OPT = "CLOSE" OR (SQLCODE NOT = 0 AND EZESQCOD = 0) MOVE SQLCA TO EZESQLCA MOVE EZERTS-SQLERR-STATUS TO EZESTA-DER-KAD-RC END-IF. EZECLOSCU-DER-KAD-X. EXIT. *----------------------------------------------------------------- * CLOSE CURSOR FOR SQL ROW KATSAYI *----------------------------------------------------------------- EZECLOSCU-KATSAYI SECTION. MOVE SPACES TO EZECRS-KATSAYI-TYP IF EZECRS-KATSAYI-CLOS GO TO EZECLOSCU-KATSAYI-X END-IF IF EZECRS-KATSAYI-ID = 1 EXEC SQL CLOSE EZE002001THKKM1 END-EXEC END-IF SET EZECRS-KATSAYI-CLOS TO TRUE MOVE "CLOSE" TO EZERTS-SQL-COMMAND PERFORM EZESQL-ERROR-ROUTINE IF EZERTS-PRC-OPT = "CLOSE" OR (SQLCODE NOT = 0 AND EZESQCOD = 0) MOVE SQLCA TO EZESQLCA MOVE EZERTS-SQLERR-STATUS TO EZESTA-KATSAYI-RC END-IF. EZECLOSCU-KATSAYI-X. EXIT. *----------------------------------------------------------------- * CLOSE CURSOR FOR SQL ROW MAAS *----------------------------------------------------------------- EZECLOSCU-MAAS SECTION. MOVE SPACES TO EZECRS-MAAS-TYP IF EZECRS-MAAS-CLOS GO TO EZECLOSCU-MAAS-X END-IF IF EZECRS-MAAS-ID = 1 EXEC SQL CLOSE EZE003001THKKM1 END-EXEC END-IF SET EZECRS-MAAS-CLOS TO TRUE MOVE "CLOSE" TO EZERTS-SQL-COMMAND PERFORM EZESQL-ERROR-ROUTINE IF EZERTS-PRC-OPT = "CLOSE" OR (SQLCODE NOT = 0 AND EZESQCOD = 0) MOVE SQLCA TO EZESQLCA MOVE EZERTS-SQLERR-STATUS TO EZESTA-MAAS-RC END-IF. EZECLOSCU-MAAS-X. EXIT. *----------------------------------------------------------------- * INPUT / OUTPUT ROUTINE FOR PROCESS DERKAD_INQ1 *----------------------------------------------------------------- * PROCESS OPTION : INQUIRY * PROCESS OBJECT : DER_KAD *----------------------------------------------------------------- EZEINQU-DERKAD-INQ1 SECTION. MOVE "DERKAD_INQ1" TO EZERTS-PRC-NAME MOVE "INQUIRY" TO EZERTS-PRC-OPT MOVE "DER_KAD" TO EZERTS-PRC-OBJ SET EZERTS-ERROR-ROUTINE TO TRUE MOVE ZEROES TO EZESTA-DER-KAD-RC IF NOT EZECRS-DER-KAD-CLOS PERFORM EZECLOSCU-DER-KAD IF EZESTA-DER-KAD-HRD GO TO EZEINQ-DERKAD-INQ1-ERR END-IF END-IF EXEC SQL OPEN EZE001001THKKM1 END-EXEC MOVE "OPEN" TO EZERTS-SQL-COMMAND PERFORM EZESQL-ERROR-ROUTINE MOVE EZERTS-SQLERR-STATUS TO EZESTA-DER-KAD-RC IF EZESTA-DER-KAD-HRD OR EZESTA-DER-KAD-NRF GO TO EZEINQ-DERKAD-INQ1-ERR END-IF MOVE 1 TO EZECRS-DER-KAD-ID MOVE "INQU" TO EZECRS-DER-KAD-TYP EXEC SQL FETCH EZE001001THKKM1 INTO :EZESQL-DER-KAD-H.GOSTERGE:EZESQL-DER-KAD-I.GOSTERGE END-EXEC MOVE "FETCH" TO EZERTS-SQL-COMMAND PERFORM EZESQL-ERROR-ROUTINE MOVE EZERTS-SQLERR-STATUS TO EZESTA-DER-KAD-RC PERFORM EZECLOSCU-DER-KAD. IF EZESTA-DER-KAD-HRD OR EZESTA-DER-KAD-NRF GO TO EZEINQ-DERKAD-INQ1-ERR END-IF. IF GOSTERGE OF EZESQL-DER-KAD-I NEGATIVE MOVE ZERO TO GOSTERGE OF DER-KAD END-IF CONTINUE. EZEINQ-DERKAD-INQ1-ERR. CONTINUE. EZEINQU-DERKAD-INQ1-X. EXIT. *----------------------------------------------------------------- * INPUT / OUTPUT ROUTINE FOR PROCESS KATSAYI_INQ2 *----------------------------------------------------------------- * PROCESS OPTION : INQUIRY * PROCESS OBJECT : KATSAYI *----------------------------------------------------------------- EZEINQU-KATSAYI-INQ2 SECTION. MOVE "KATSAYI_INQ2" TO EZERTS-PRC-NAME MOVE "INQUIRY" TO EZERTS-PRC-OPT MOVE "KATSAYI" TO EZERTS-PRC-OBJ SET EZERTS-NO-ERROR-ROUTINE TO TRUE MOVE ZEROES TO EZESTA-KATSAYI-RC IF NOT EZECRS-KATSAYI-CLOS PERFORM EZECLOSCU-KATSAYI IF EZESTA-KATSAYI-HRD GO TO EZEINQ-KATSAYI-INQ2-ERR END-IF END-IF EXEC SQL OPEN EZE002001THKKM1 END-EXEC MOVE "OPEN" TO EZERTS-SQL-COMMAND PERFORM EZESQL-ERROR-ROUTINE MOVE EZERTS-SQLERR-STATUS TO EZESTA-KATSAYI-RC IF EZESTA-KATSAYI-HRD OR EZESTA-KATSAYI-NRF GO TO EZEINQ-KATSAYI-INQ2-ERR END-IF MOVE 1 TO EZECRS-KATSAYI-ID MOVE "INQU" TO EZECRS-KATSAYI-TYP EXEC SQL FETCH EZE002001THKKM1 INTO :EZESQL-KATSAYI-H.MAAS-KSAYI:EZESQL-KATSAYI-I.MAAS-KSAYI , :EZESQL-KATSAYI-H.TABAN-AY-KSAYI:EZESQL-KATSAYI-I.TABAN-AY- - KSAYI , :EZESQL-KATSAYI-H.YAN-ODE-KSAYI:EZESQL-KATSAYI-I.YAN-ODE-KS - AYI , :EZESQL-KATSAYI-H.VRG-DILIM-1:EZESQL-KATSAYI-I.VRG-DILIM-1 , :EZESQL-KATSAYI-H.VRG-ORAN-1:EZESQL-KATSAYI-I.VRG-ORAN-1 , :EZESQL-KATSAYI-H.VRG-DILIM-2:EZESQL-KATSAYI-I.VRG-DILIM-2 , :EZESQL-KATSAYI-H.VRG-ORAN-2:EZESQL-KATSAYI-I.VRG-ORAN-2 , :EZESQL-KATSAYI-H.VRG-DILIM-3:EZESQL-KATSAYI-I.VRG-DILIM-3 , :EZESQL-KATSAYI-H.VRG-ORAN-3:EZESQL-KATSAYI-I.VRG-ORAN-3 , :EZESQL-KATSAYI-H.VRG-DILIM-4:EZESQL-KATSAYI-I.VRG-DILIM-4 , :EZESQL-KATSAYI-H.VRG-ORAN-4:EZESQL-KATSAYI-I.VRG-ORAN-4 , :EZESQL-KATSAYI-H.VRG-DILIM-5:EZESQL-KATSAYI-I.VRG-DILIM-5 , :EZESQL-KATSAYI-H.VRG-ORAN-5:EZESQL-KATSAYI-I.VRG-ORAN-5 , :EZESQL-KATSAYI-H.VRG-ORAN-6:EZESQL-KATSAYI-I.VRG-ORAN-6 , :EZESQL-KATSAYI-H.DMG-VRG-ORAN:EZESQL-KATSAYI-I.DMG-VRG-ORA - N , :EZESQL-KATSAYI-H.YDIL-A-KSAYI:EZESQL-KATSAYI-I.YDIL-A-KSAY - I , :EZESQL-KATSAYI-H.YDIL-B-KSAYI:EZESQL-KATSAYI-I.YDIL-B-KSAY - I , :EZESQL-KATSAYI-H.YDIL-C-KSAYI:EZESQL-KATSAYI-I.YDIL-C-KSAY - I , :EZESQL-KATSAYI-H.COCUK-KSAYI:EZESQL-KATSAYI-I.COCUK-KSAYI , :EZESQL-KATSAYI-H.EMEKLI-SAHIS-PAY:EZESQL-KATSAYI-I.EMEKLI- - SAHIS-PAY , :EZESQL-KATSAYI-H.EMEKLI-KURUM-PAY:EZESQL-KATSAYI-I.EMEKLI- - KURUM-PAY END-EXEC MOVE "FETCH" TO EZERTS-SQL-COMMAND PERFORM EZESQL-ERROR-ROUTINE MOVE EZERTS-SQLERR-STATUS TO EZESTA-KATSAYI-RC PERFORM EZECLOSCU-KATSAYI. IF EZESTA-KATSAYI-HRD OR EZESTA-KATSAYI-NRF GO TO EZEINQ-KATSAYI-INQ2-ERR END-IF. IF MAAS-KSAYI OF EZESQL-KATSAYI-I NEGATIVE MOVE ZERO TO MAAS-KSAYI OF KATSAYI END-IF IF TABAN-AY-KSAYI OF EZESQL-KATSAYI-I NEGATIVE MOVE ZERO TO TABAN-AY-KSAYI OF KATSAYI END-IF IF YAN-ODE-KSAYI OF EZESQL-KATSAYI-I NEGATIVE MOVE ZERO TO YAN-ODE-KSAYI OF KATSAYI END-IF IF VRG-DILIM-1 OF EZESQL-KATSAYI-I NEGATIVE MOVE ZERO TO VRG-DILIM-1 OF KATSAYI END-IF IF VRG-ORAN-1 OF EZESQL-KATSAYI-I NEGATIVE MOVE ZERO TO VRG-ORAN-1 OF KATSAYI END-IF IF VRG-DILIM-2 OF EZESQL-KATSAYI-I NEGATIVE MOVE ZERO TO VRG-DILIM-2 OF KATSAYI END-IF IF VRG-ORAN-2 OF EZESQL-KATSAYI-I NEGATIVE MOVE ZERO TO VRG-ORAN-2 OF KATSAYI END-IF IF VRG-DILIM-3 OF EZESQL-KATSAYI-I NEGATIVE MOVE ZERO TO VRG-DILIM-3 OF KATSAYI END-IF IF VRG-ORAN-3 OF EZESQL-KATSAYI-I NEGATIVE MOVE ZERO TO VRG-ORAN-3 OF KATSAYI END-IF IF VRG-DILIM-4 OF EZESQL-KATSAYI-I NEGATIVE MOVE ZERO TO VRG-DILIM-4 OF KATSAYI END-IF IF VRG-ORAN-4 OF EZESQL-KATSAYI-I NEGATIVE MOVE ZERO TO VRG-ORAN-4 OF KATSAYI END-IF IF VRG-DILIM-5 OF EZESQL-KATSAYI-I NEGATIVE MOVE ZERO TO VRG-DILIM-5 OF KATSAYI END-IF IF VRG-ORAN-5 OF EZESQL-KATSAYI-I NEGATIVE MOVE ZERO TO VRG-ORAN-5 OF KATSAYI END-IF IF VRG-ORAN-6 OF EZESQL-KATSAYI-I NEGATIVE MOVE ZERO TO VRG-ORAN-6 OF KATSAYI END-IF IF DMG-VRG-ORAN OF EZESQL-KATSAYI-I NEGATIVE MOVE ZERO TO DMG-VRG-ORAN OF KATSAYI END-IF IF YDIL-A-KSAYI OF EZESQL-KATSAYI-I NEGATIVE MOVE ZERO TO YDIL-A-KSAYI OF KATSAYI END-IF IF YDIL-B-KSAYI OF EZESQL-KATSAYI-I NEGATIVE MOVE ZERO TO YDIL-B-KSAYI OF KATSAYI END-IF IF YDIL-C-KSAYI OF EZESQL-KATSAYI-I NEGATIVE MOVE ZERO TO YDIL-C-KSAYI OF KATSAYI END-IF IF COCUK-KSAYI OF EZESQL-KATSAYI-I NEGATIVE MOVE ZERO TO COCUK-KSAYI OF KATSAYI END-IF IF EMEKLI-SAHIS-PAY OF EZESQL-KATSAYI-I NEGATIVE MOVE ZERO TO EMEKLI-SAHIS-PAY OF KATSAYI END-IF IF EMEKLI-KURUM-PAY OF EZESQL-KATSAYI-I NEGATIVE MOVE ZERO TO EMEKLI-KURUM-PAY OF KATSAYI END-IF CONTINUE. EZEINQ-KATSAYI-INQ2-ERR. IF EZESTA-KATSAYI-ERR SET EZERTS-EZECLOS TO TRUE GO TO EZETERMINATE END-IF CONTINUE. EZEINQU-KATSAYI-INQ2-X. EXIT. *----------------------------------------------------------------- * INPUT / OUTPUT ROUTINE FOR PROCESS MAAS_CLOSE *----------------------------------------------------------------- * PROCESS OPTION : CLOSE * PROCESS OBJECT : MAAS *----------------------------------------------------------------- EZECLOS-MAAS-CLOSE SECTION. MOVE "MAAS_CLOSE" TO EZERTS-PRC-NAME MOVE "CLOSE" TO EZERTS-PRC-OPT MOVE "MAAS" TO EZERTS-PRC-OBJ SET EZERTS-NO-ERROR-ROUTINE TO TRUE MOVE ZEROES TO EZESTA-MAAS-RC PERFORM EZECLOSCU-MAAS IF EZESTA-MAAS-ERR SET EZERTS-EZECLOS TO TRUE GO TO EZETERMINATE END-IF CONTINUE. EZECLOS-MAAS-CLOSE-X. EXIT. *----------------------------------------------------------------- * INPUT / OUTPUT ROUTINE FOR PROCESS MAAS_SCAN *----------------------------------------------------------------- * PROCESS OPTION : SCAN * PROCESS OBJECT : MAAS *----------------------------------------------------------------- EZESCAN-MAAS-SCAN SECTION. MOVE "MAAS_SCAN" TO EZERTS-PRC-NAME MOVE "SCAN" TO EZERTS-PRC-OPT MOVE "MAAS" TO EZERTS-PRC-OBJ SET EZERTS-NO-ERROR-ROUTINE TO TRUE MOVE ZEROES TO EZESTA-MAAS-RC IF EZECRS-MAAS-ID NOT = 1 MOVE 0086 TO EZERTS-ERROR-NUM CALL "ELARSVCS" USING EZERTS-CONTROL-BLOCK EZERTS-ERROR-REQUEST-BLOCK GO TO EZETERMINATE END-IF IF EZECRS-MAAS-ID = 1 EXEC SQL FETCH EZE003001THKKM1 INTO :EZESQL-MAAS-H.SICIL:EZESQL-MAAS-I.SICIL , :EZESQL-MAAS-H.EZEI-1:EZESQL-MAAS-I.EZEI-1 , :EZESQL-MAAS-H.EZEI-2:EZESQL-MAAS-I.EZEI-2 , :EZESQL-MAAS-H.EZEI-3:EZESQL-MAAS-I.EZEI-3 , :EZESQL-MAAS-H.EZEI-4:EZESQL-MAAS-I.EZEI-4 , :EZESQL-MAAS-H.DERECE:EZESQL-MAAS-I.DERECE , :EZESQL-MAAS-H.KADEME:EZESQL-MAAS-I.KADEME , :EZESQL-MAAS-H.EKGOSTERGE:EZESQL-MAAS-I.EKGOSTERGE , :EZESQL-MAAS-H.KIDEM:EZESQL-MAAS-I.KIDEM , :EZESQL-MAAS-H.EZEI-5:EZESQL-MAAS-I.EZEI-5 , :EZESQL-MAAS-H.EZEI-7:EZESQL-MAAS-I.EZEI-7 , :EZESQL-MAAS-H.EZEI-9:EZESQL-MAAS-I.EZEI-9 , :EZESQL-MAAS-H.EZEI-11:EZESQL-MAAS-I.EZEI-11 , :EZESQL-MAAS-H.EZEI-13:EZESQL-MAAS-I.EZEI-13 , :EZESQL-MAAS-H.EZEI-15:EZESQL-MAAS-I.EZEI-15 , :EZESQL-MAAS-H.EZEI-17:EZESQL-MAAS-I.EZEI-17 , :EZESQL-MAAS-H.EZEI-18:EZESQL-MAAS-I.EZEI-18 , :EZESQL-MAAS-H.EZEI-20:EZESQL-MAAS-I.EZEI-20 , :EZESQL-MAAS-H.EZEI-27:EZESQL-MAAS-I.EZEI-27 , :EZESQL-MAAS-H.EZEI-28:EZESQL-MAAS-I.EZEI-28 , :EZESQL-MAAS-H.EZEI-29:EZESQL-MAAS-I.EZEI-29 , :EZESQL-MAAS-H.KAMP:EZESQL-MAAS-I.KAMP , :EZESQL-MAAS-H.YEMEK:EZESQL-MAAS-I.YEMEK , :EZESQL-MAAS-H.LOKAL:EZESQL-MAAS-I.LOKAL , :EZESQL-MAAS-H.KRES:EZESQL-MAAS-I.KRES , :EZESQL-MAAS-H.ICRA:EZESQL-MAAS-I.ICRA , :EZESQL-MAAS-H.HARCIRAH:EZESQL-MAAS-I.HARCIRAH END-EXEC MOVE "FETCH" TO EZERTS-SQL-COMMAND PERFORM EZESQL-ERROR-ROUTINE MOVE EZERTS-SQLERR-STATUS TO EZESTA-MAAS-RC IF EZESTA-MAAS-HRD OR EZESTA-MAAS-NRF PERFORM EZECLOSCU-MAAS GO TO EZESCAN-MAAS-SCAN-ERR END-IF IF SICIL OF EZESQL-MAAS-I NEGATIVE MOVE SPACES TO SICIL OF MAAS END-IF IF EZEI-1 OF EZESQL-MAAS-I NEGATIVE MOVE SPACES TO EZEI-1 OF MAAS END-IF IF EZEI-2 OF EZESQL-MAAS-I NEGATIVE MOVE SPACES TO EZEI-2 OF MAAS END-IF IF EZEI-3 OF EZESQL-MAAS-I NEGATIVE MOVE ZERO TO EZEI-3 OF MAAS END-IF IF EZEI-4 OF EZESQL-MAAS-I NEGATIVE MOVE ZERO TO EZEI-4 OF MAAS END-IF IF DERECE OF EZESQL-MAAS-I NEGATIVE MOVE SPACES TO DERECE OF MAAS END-IF IF KADEME OF EZESQL-MAAS-I NEGATIVE MOVE SPACES TO KADEME OF MAAS END-IF IF EKGOSTERGE OF EZESQL-MAAS-I NEGATIVE MOVE ZERO TO EKGOSTERGE OF MAAS END-IF IF KIDEM OF EZESQL-MAAS-I NEGATIVE MOVE ZERO TO KIDEM OF MAAS END-IF IF EZEI-5 OF EZESQL-MAAS-I NEGATIVE MOVE ZERO TO EZEI-5 OF MAAS END-IF IF EZEI-7 OF EZESQL-MAAS-I NEGATIVE MOVE ZERO TO EZEI-7 OF MAAS END-IF IF EZEI-9 OF EZESQL-MAAS-I NEGATIVE MOVE ZERO TO EZEI-9 OF MAAS END-IF IF EZEI-11 OF EZESQL-MAAS-I NEGATIVE MOVE ZERO TO EZEI-11 OF MAAS END-IF IF EZEI-13 OF EZESQL-MAAS-I NEGATIVE MOVE ZERO TO EZEI-13 OF MAAS END-IF IF EZEI-15 OF EZESQL-MAAS-I NEGATIVE MOVE SPACES TO EZEI-15 OF MAAS END-IF IF EZEI-17 OF EZESQL-MAAS-I NEGATIVE MOVE ZERO TO EZEI-17 OF MAAS END-IF IF EZEI-18 OF EZESQL-MAAS-I NEGATIVE MOVE ZERO TO EZEI-18 OF MAAS END-IF IF EZEI-20 OF EZESQL-MAAS-I NEGATIVE MOVE ZERO TO EZEI-20 OF MAAS END-IF IF EZEI-27 OF EZESQL-MAAS-I NEGATIVE MOVE ZERO TO EZEI-27 OF MAAS END-IF IF EZEI-28 OF EZESQL-MAAS-I NEGATIVE MOVE ZERO TO EZEI-28 OF MAAS END-IF IF EZEI-29 OF EZESQL-MAAS-I NEGATIVE MOVE ZERO TO EZEI-29 OF MAAS END-IF IF KAMP OF EZESQL-MAAS-I NEGATIVE MOVE ZERO TO KAMP OF MAAS END-IF IF YEMEK OF EZESQL-MAAS-I NEGATIVE MOVE ZERO TO YEMEK OF MAAS END-IF IF LOKAL OF EZESQL-MAAS-I NEGATIVE MOVE ZERO TO LOKAL OF MAAS END-IF IF KRES OF EZESQL-MAAS-I NEGATIVE MOVE ZERO TO KRES OF MAAS END-IF IF ICRA OF EZESQL-MAAS-I NEGATIVE MOVE ZERO TO ICRA OF MAAS END-IF IF HARCIRAH OF EZESQL-MAAS-I NEGATIVE MOVE ZERO TO HARCIRAH OF MAAS END-IF END-IF CONTINUE. EZESCAN-MAAS-SCAN-ERR. IF EZESTA-MAAS-ERR SET EZERTS-EZECLOS TO TRUE GO TO EZETERMINATE END-IF CONTINUE. EZESCAN-MAAS-SCAN-X. EXIT. *----------------------------------------------------------------- * INPUT / OUTPUT ROUTINE FOR PROCESS MAAS_SIQ1 *----------------------------------------------------------------- * PROCESS OPTION : SETINQ * PROCESS OBJECT : MAAS *----------------------------------------------------------------- EZESETI-MAAS-SIQ1 SECTION. MOVE "MAAS_SIQ1" TO EZERTS-PRC-NAME MOVE "SETINQ" TO EZERTS-PRC-OPT MOVE "MAAS" TO EZERTS-PRC-OBJ SET EZERTS-NO-ERROR-ROUTINE TO TRUE MOVE ZEROES TO EZESTA-MAAS-RC IF NOT EZECRS-MAAS-CLOS PERFORM EZECLOSCU-MAAS IF EZESTA-MAAS-HRD GO TO EZESETI-MAAS-SIQ1-ERR END-IF END-IF EXEC SQL OPEN EZE003001THKKM1 END-EXEC MOVE "OPEN" TO EZERTS-SQL-COMMAND PERFORM EZESQL-ERROR-ROUTINE MOVE EZERTS-SQLERR-STATUS TO EZESTA-MAAS-RC IF EZESTA-MAAS-HRD OR EZESTA-MAAS-NRF GO TO EZESETI-MAAS-SIQ1-ERR END-IF MOVE 1 TO EZECRS-MAAS-ID MOVE "SETI" TO EZECRS-MAAS-TYP. EZESETI-MAAS-SIQ1-ERR. IF EZESTA-MAAS-ERR SET EZERTS-EZECLOS TO TRUE GO TO EZETERMINATE END-IF CONTINUE. EZESETI-MAAS-SIQ1-X. EXIT. *----------------------------------------------------------------- * INPUT / OUTPUT ROUTINE FOR PROCESS MAAS_UPD2 *----------------------------------------------------------------- * PROCESS OPTION : SQLEXEC * PROCESS OBJECT : MAAS *----------------------------------------------------------------- EZESQLE-MAAS-UPD2 SECTION. MOVE "MAAS_UPD2" TO EZERTS-PRC-NAME MOVE "SQLEXEC" TO EZERTS-PRC-OPT MOVE "MAAS" TO EZERTS-PRC-OBJ SET EZERTS-ERROR-ROUTINE TO TRUE MOVE ZEROES TO EZESTA-MAAS-RC COMPUTE EZESQLTMP-PACK-7-0-1-1 = EZEI-6 OF MAAS ON SIZE ERROR MOVE "MAAS_UPD2" TO EZERTS-PRC-NAME MOVE "MAAS_UPD2" TO EZERTS-PRC-NAME MOVE 0069 TO EZERTS-ERROR-NUM CALL "ELARSVCS" USING EZERTS-CONTROL-BLOCK EZERTS-ERROR-REQUEST-BLOCK GO TO EZETERMINATE GO TO EZETERMINATE END-COMPUTE COMPUTE EZESQLTMP-PACK-7-0-1-2 = EZEI-8 OF MAAS ON SIZE ERROR MOVE "MAAS_UPD2" TO EZERTS-PRC-NAME MOVE "MAAS_UPD2" TO EZERTS-PRC-NAME MOVE 0069 TO EZERTS-ERROR-NUM CALL "ELARSVCS" USING EZERTS-CONTROL-BLOCK EZERTS-ERROR-REQUEST-BLOCK GO TO EZETERMINATE GO TO EZETERMINATE END-COMPUTE COMPUTE EZESQLTMP-PACK-7-0-1-3 = EZEI-10 OF MAAS ON SIZE ERROR MOVE "MAAS_UPD2" TO EZERTS-PRC-NAME MOVE "MAAS_UPD2" TO EZERTS-PRC-NAME MOVE 0069 TO EZERTS-ERROR-NUM CALL "ELARSVCS" USING EZERTS-CONTROL-BLOCK EZERTS-ERROR-REQUEST-BLOCK GO TO EZETERMINATE GO TO EZETERMINATE END-COMPUTE COMPUTE EZESQLTMP-PACK-7-0-1-4 = EZEI-12 OF MAAS ON SIZE ERROR MOVE "MAAS_UPD2" TO EZERTS-PRC-NAME MOVE "MAAS_UPD2" TO EZERTS-PRC-NAME MOVE 0069 TO EZERTS-ERROR-NUM CALL "ELARSVCS" USING EZERTS-CONTROL-BLOCK EZERTS-ERROR-REQUEST-BLOCK GO TO EZETERMINATE GO TO EZETERMINATE END-COMPUTE COMPUTE EZESQLTMP-PACK-7-0-1-5 = EZEI-14 OF MAAS ON SIZE ERROR MOVE "MAAS_UPD2" TO EZERTS-PRC-NAME MOVE "MAAS_UPD2" TO EZERTS-PRC-NAME MOVE 0069 TO EZERTS-ERROR-NUM CALL "ELARSVCS" USING EZERTS-CONTROL-BLOCK EZERTS-ERROR-REQUEST-BLOCK GO TO EZETERMINATE GO TO EZETERMINATE END-COMPUTE COMPUTE EZESQLTMP-PACK-7-0-1-6 = EZEI-16 OF MAAS ON SIZE ERROR MOVE "MAAS_UPD2" TO EZERTS-PRC-NAME MOVE "MAAS_UPD2" TO EZERTS-PRC-NAME MOVE 0069 TO EZERTS-ERROR-NUM CALL "ELARSVCS" USING EZERTS-CONTROL-BLOCK EZERTS-ERROR-REQUEST-BLOCK GO TO EZETERMINATE GO TO EZETERMINATE END-COMPUTE COMPUTE EZESQLTMP-PACK-7-0-1-7 = EZEI-19 OF MAAS ON SIZE ERROR MOVE "MAAS_UPD2" TO EZERTS-PRC-NAME MOVE "MAAS_UPD2" TO EZERTS-PRC-NAME MOVE 0069 TO EZERTS-ERROR-NUM CALL "ELARSVCS" USING EZERTS-CONTROL-BLOCK EZERTS-ERROR-REQUEST-BLOCK GO TO EZETERMINATE GO TO EZETERMINATE END-COMPUTE COMPUTE EZESQLTMP-PACK-7-0-1-8 = EZEI-21 OF MAAS ON SIZE ERROR MOVE "MAAS_UPD2" TO EZERTS-PRC-NAME MOVE "MAAS_UPD2" TO EZERTS-PRC-NAME MOVE 0069 TO EZERTS-ERROR-NUM CALL "ELARSVCS" USING EZERTS-CONTROL-BLOCK EZERTS-ERROR-REQUEST-BLOCK GO TO EZETERMINATE GO TO EZETERMINATE END-COMPUTE COMPUTE EZESQLTMP-PACK-7-0-1-9 = EZEI-22 OF MAAS ON SIZE ERROR MOVE "MAAS_UPD2" TO EZERTS-PRC-NAME MOVE "MAAS_UPD2" TO EZERTS-PRC-NAME MOVE 0069 TO EZERTS-ERROR-NUM CALL "ELARSVCS" USING EZERTS-CONTROL-BLOCK EZERTS-ERROR-REQUEST-BLOCK GO TO EZETERMINATE GO TO EZETERMINATE END-COMPUTE COMPUTE EZESQLTMP-PACK-7-0-1-10 = EZEI-23 OF MAAS ON SIZE ERROR MOVE "MAAS_UPD2" TO EZERTS-PRC-NAME MOVE "MAAS_UPD2" TO EZERTS-PRC-NAME MOVE 0069 TO EZERTS-ERROR-NUM CALL "ELARSVCS" USING EZERTS-CONTROL-BLOCK EZERTS-ERROR-REQUEST-BLOCK GO TO EZETERMINATE GO TO EZETERMINATE END-COMPUTE COMPUTE EZESQLTMP-PACK-7-0-1-11 = EZEI-24 OF MAAS ON SIZE ERROR MOVE "MAAS_UPD2" TO EZERTS-PRC-NAME MOVE "MAAS_UPD2" TO EZERTS-PRC-NAME MOVE 0069 TO EZERTS-ERROR-NUM CALL "ELARSVCS" USING EZERTS-CONTROL-BLOCK EZERTS-ERROR-REQUEST-BLOCK GO TO EZETERMINATE GO TO EZETERMINATE END-COMPUTE COMPUTE EZESQLTMP-PACK-7-0-1-12 = EZEI-25 OF MAAS ON SIZE ERROR MOVE "MAAS_UPD2" TO EZERTS-PRC-NAME MOVE "MAAS_UPD2" TO EZERTS-PRC-NAME MOVE 0069 TO EZERTS-ERROR-NUM CALL "ELARSVCS" USING EZERTS-CONTROL-BLOCK EZERTS-ERROR-REQUEST-BLOCK GO TO EZETERMINATE GO TO EZETERMINATE END-COMPUTE COMPUTE EZESQLTMP-PACK-7-0-1-13 = EZEI-26 OF MAAS ON SIZE ERROR MOVE "MAAS_UPD2" TO EZERTS-PRC-NAME MOVE "MAAS_UPD2" TO EZERTS-PRC-NAME MOVE 0069 TO EZERTS-ERROR-NUM CALL "ELARSVCS" USING EZERTS-CONTROL-BLOCK EZERTS-ERROR-REQUEST-BLOCK GO TO EZETERMINATE GO TO EZETERMINATE END-COMPUTE COMPUTE EZESQLTMP-PACK-7-0-1-14 = EZEI-30 OF MAAS ON SIZE ERROR MOVE "MAAS_UPD2" TO EZERTS-PRC-NAME MOVE "MAAS_UPD2" TO EZERTS-PRC-NAME MOVE 0069 TO EZERTS-ERROR-NUM CALL "ELARSVCS" USING EZERTS-CONTROL-BLOCK EZERTS-ERROR-REQUEST-BLOCK GO TO EZETERMINATE GO TO EZETERMINATE END-COMPUTE EXEC SQL UPDATE BORDRO.MAAS SET IS_GUCLUGU = :EZESQLTMP-PACK-7-0-1-1:EZESQL-MAAS-I.EZEI-6 , ELTEM_GUCLUGU = :EZESQLTMP-PACK-7-0-1-2:EZESQL-MAAS-I.EZEI-8 , OZEL_HIZMET_TAZ = :EZESQLTMP-PACK-7-0-1-3:EZESQL-MAAS-I.EZEI-10 , MAKAM_TAZ = :EZESQLTMP-PACK-7-0-1-4:EZESQL-MAAS-I.EZEI-12 , MALI_SORUMLULUK_TAZ = :EZESQLTMP-PACK-7-0-1-5:EZESQL-MAAS-I.EZEI-14 , YABANCI_DIL_TAZ = :EZESQLTMP-PACK-7-0-1-6:EZESQL-MAAS-I.EZEI-16 , AILE_YARDIM_TAZ = :EZESQLTMP-PACK-7-0-1-7:EZESQL-MAAS-I.EZEI-19 , COCUK_TAZ = :EZESQLTMP-PACK-7-0-1-8:EZESQL-MAAS-I.EZEI-21 , GELIR_VERGI = :EZESQLTMP-PACK-7-0-1-9:EZESQL-MAAS-I.EZEI-22 , DAMGA_VERGI = :EZESQLTMP-PACK-7-0-1-10:EZESQL-MAAS-I.EZEI-23 , YUKSELIS_KES = :EZESQLTMP-PACK-7-0-1-11:EZESQL-MAAS-I.EZEI-24 , EMEKLI_AIDAT_SAH = :EZESQLTMP-PACK-7-0-1-12:EZESQL-MAAS-I.EZEI-25 , EMEKLI_AIDAT_KUR = :EZESQLTMP-PACK-7-0-1-13:EZESQL-MAAS-I.EZEI-26 , NET_MAAS = :EZESQLTMP-PACK-7-0-1-14:EZESQL-MAAS-I.EZEI-30 , TOP_MATRAH = :EZESQL-MAAS-H.EZEI-31:EZESQL-MAAS-I.EZEI-31 WHERE SICIL = :EZESQL-MAAS-H.SICIL:EZESQL-MAAS-I.SICIL END-EXEC MOVE "SQLEXEC" TO EZERTS-SQL-COMMAND PERFORM EZESQL-ERROR-ROUTINE MOVE EZERTS-SQLERR-STATUS TO EZESTA-MAAS-RC. EZESQL-MAAS-UPD2-ERR. CONTINUE. EZESQLE-MAAS-UPD2-X. EXIT. *----------------------------------------------------------------- * MAIN PROCESS : THKKM1-MAIN * MODIFICATION DATE : 02.06.2000 * MODIFICATION TIME : 11:22:22 * PROCESS OPTION : EXECUTE *----------------------------------------------------------------- THKKM1-MAIN SECTION. MOVE "THKKM1-MAIN" TO EZERTS-PRC-NAME 000001* /* record initialization 000002* SET WTAHAKKUK EMPTY; PERFORM EZESETEMP-WTAHAKKUK 000003* 000004* /* Standard initialization for atomic database operations. 000005* PERFORM SQL-INIT; PERFORM EZEP-SQL-INIT 000006* 000007* /* Initialize Access Type (R=read, W=write). 000008* VDBCONTROL.UACCTYP = 'R'; MOVE "R" TO UACCTYP OF VDBCONTROL 000009* VDBCONTROL.UIOTYPE = 'S'; MOVE "S" TO UIOTYPE OF VDBCONTROL 000010* 000011* /* Store application name 000012* VDBCOMMON.UAPPLNAM = 'THKKM1'; MOVE "THKKM1" TO UAPPLNAM OF VDBCOMMON 000013* 000014* PERFORM KATSAYI_INQ2; PERFORM KATSAYI-INQ2 000015* 000016* /* set cursor 000017* PERFORM MAAS_SIQ1; PERFORM MAAS-SIQ1 000018* 000019* /* scan table 000020* PERFORM THKKM1-SCAN-DATA; PERFORM THKKM1-SCAN-DATA 000021* 000022* /* Set error flags. 000023* /* UNRF - no record found flag (Y,N,1) 000024* /* UDUP - duplicate key flag (Y,N) 000025* VDBCOMMON.UNRF = '1'; MOVE "1" TO UNRF OF VDBCOMMON 000026* VDBCOMMON.UDUP = 'N'; MOVE "N" TO UDUP OF VDBCOMMON 000027* 000028* /* Start DBM error processing. 000029* PERFORM SQL-ERROR; PERFORM EZEP-SQL-ERROR 000030* 000031* /* close cursor 000032* PERFORM MAAS_CLOSE; PERFORM MAAS-CLOSE 000033* CONTINUE. EZE-THKKM1-MAIN-X. EXIT. *----------------------------------------------------------------- * STRUCTURE LIST POST-PROCESSING *----------------------------------------------------------------- EZESTRUCTURE-FALLTHRU SECTION. GO TO EZETERMINATE. EZESTRUCTURE-FALLTHRU-X. EXIT. *----------------------------------------------------------------- * PROCESS : DERKAD_INQ1 * : DERKAD_INQ1 RENAMED TO DERKAD-INQ1 * MODIFICATION DATE : 02.06.2000 * MODIFICATION TIME : 18:16:29 * PROCESS OPTION : INQUIRY * PROCESS OBJECT : DER_KAD * PROCESS OBJECT : DER_KAD RENAMED TO DER-KAD *----------------------------------------------------------------- DERKAD-INQ1 SECTION. MOVE "DERKAD_INQ1" TO EZERTS-PRC-NAME PERFORM EZEINQU-DERKAD-INQ1 CONTINUE. EZE-DERKAD-INQ1-X. EXIT. *----------------------------------------------------------------- * PROCESS : KATSAYI_INQ2 * : KATSAYI_INQ2 RENAMED TO KATSAYI-INQ2 * MODIFICATION DATE : 02.06.2000 * MODIFICATION TIME : 10:49:54 * PROCESS OPTION : INQUIRY * PROCESS OBJECT : KATSAYI *----------------------------------------------------------------- KATSAYI-INQ2 SECTION. MOVE "KATSAYI_INQ2" TO EZERTS-PRC-NAME PERFORM EZEINQU-KATSAYI-INQ2 CONTINUE. EZE-KATSAYI-INQ2-X. EXIT. *----------------------------------------------------------------- * PROCESS : MAAS_CLOSE * : MAAS_CLOSE RENAMED TO MAAS-CLOSE * MODIFICATION DATE : 02.06.2000 * MODIFICATION TIME : 10:43:58 * PROCESS OPTION : CLOSE * PROCESS OBJECT : MAAS *----------------------------------------------------------------- MAAS-CLOSE SECTION. MOVE "MAAS_CLOSE" TO EZERTS-PRC-NAME PERFORM EZECLOS-MAAS-CLOSE CONTINUE. EZE-MAAS-CLOSE-X. EXIT. *----------------------------------------------------------------- * PROCESS : MAAS_SCAN * : MAAS_SCAN RENAMED TO MAAS-SCAN * MODIFICATION DATE : 02.06.2000 * MODIFICATION TIME : 17:39:44 * PROCESS OPTION : SCAN * PROCESS OBJECT : MAAS *----------------------------------------------------------------- MAAS-SCAN SECTION. MOVE "MAAS_SCAN" TO EZERTS-PRC-NAME PERFORM EZESCAN-MAAS-SCAN CONTINUE. EZE-MAAS-SCAN-X. EXIT. *----------------------------------------------------------------- * PROCESS : MAAS_SIQ1 * : MAAS_SIQ1 RENAMED TO MAAS-SIQ1 * MODIFICATION DATE : 02.06.2000 * MODIFICATION TIME : 10:43:17 * PROCESS OPTION : SETINQ * PROCESS OBJECT : MAAS *----------------------------------------------------------------- MAAS-SIQ1 SECTION. MOVE "MAAS_SIQ1" TO EZERTS-PRC-NAME PERFORM EZESETI-MAAS-SIQ1 CONTINUE. EZE-MAAS-SIQ1-X. EXIT. *----------------------------------------------------------------- * PROCESS : MAAS_UPD2 * : MAAS_UPD2 RENAMED TO MAAS-UPD2 * MODIFICATION DATE : 02.06.2000 * MODIFICATION TIME : 18:26:49 * PROCESS OPTION : SQLEXEC * PROCESS OBJECT : MAAS *----------------------------------------------------------------- MAAS-UPD2 SECTION. MOVE "MAAS_UPD2" TO EZERTS-PRC-NAME PERFORM EZESQLE-MAAS-UPD2 CONTINUE. EZE-MAAS-UPD2-X. EXIT. *----------------------------------------------------------------- * PROCESS : SQL-ERROR * : SQL-ERROR RENAMED TO EZEP-SQL-ERROR * MODIFICATION DATE : 01.06.2000 * MODIFICATION TIME : 10:43:35 * PROCESS OPTION : EXECUTE * DESCRIPTION : std. SQL error handler *----------------------------------------------------------------- EZEP-SQL-ERROR SECTION. MOVE "SQL-ERROR" TO EZERTS-PRC-NAME 000052* /* *********************************************************** 000053* /* * Process : SQL-ERROR 000054* /* * 000055* /* * Function : Reusable standard SQL error handling process. 000056* /* * 000057* /* ************************************************************ 000058* /* ----------------------------------------------------------- 000059* /* This process handles SQL errors. Depending on the values 000060* /* in EZESQLCOD, VDBCONTROL.URC and the UNRF and UDUP flags, 000061* /* the need of a ROLLBACK is required. 000062* /* 000063* /* ROLLBACK in only necessary when action type is 000064* /* UACCTYP = 'W'. Both COMMIT and ROLLBACK will have to 000065* /* be issued from the calling application (umbrella). 000066* /* 000067* /* Condition UNRF UDUP URC Commit or Rollback 000068* /* ========= ==== ==== === ================== 000069* /* EZESQCOD=0 * * 0 COMMIT 000070* /* EZESQCOD=100 Y * 100 ROLLBACK 000071* /* EZESQCOD=100 N * 0 COMMIT 000072* /* EZESQCOD=100 1 * 100 ROLLBACK (if UROWR = 0) 000073* /* 0 COMMIT (if UROWR > 0) 000074* /* EZESQCOD=-803 * Y 104 ROLLBACK 000075* /* EZESQCOD=-803 * N 0 COMMIT 000076* /* EZESQCOD=-911 * * 108 ROLLBACK 000077* /* other SQL error * * 112 ROLLBACK 000078* 000079* /* In case an SQL error occurred: 000080* IF EZESQCOD NE 0 000081* AND VDBCONTROL.URC EQ 0; IF EZESQCOD NOT = 0 AND URC OF VDBCONTROL = 0 000082* 000083* /* No Record Found error (NRF) 000084* IF EZESQCOD EQ 100; IF EZESQCOD = 100 000085* IF VDBCONTROL.UIOTYPE EQ "D"; IF UIOTYPE OF VDBCONTROL = "D" 000086* /* Delete failed: row not found 000087* VMESSAGE.UMSGCODE = 'SQL0100D'; MOVE "SQL0100D" TO UMSGCODE OF VMESSAGE 000088* VDBCONTROL.URC = 1; MOVE 1 TO URC OF VDBCONTROL CALL "ELAFXNUM" USING URC OF VDBCONTROL(LENGTH OF URC OF VDBCONTROL:1) 000089* ELSE; ELSE 000090* IF VDBCONTROL.UIOTYPE EQ "U"; IF UIOTYPE OF VDBCONTROL = "U" 000091* /* Update failed: row not found 000092* VMESSAGE.UMSGCODE = 'SQL0100U'; MOVE "SQL0100U" TO UMSGCODE OF VMESSAGE 000093* VDBCONTROL.URC = 1; MOVE 1 TO URC OF VDBCONTROL CALL "ELAFXNUM" USING URC OF VDBCONTROL(LENGTH OF URC OF VDBCONTROL:1) 000094* ELSE; ELSE 000095* IF VDBCOMMON.UNRF EQ 'Y'; IF UNRF OF VDBCOMMON = "Y" 000096* /* Read failed: row not found 000097* VDBCONTROL.URC = 100; MOVE 100 TO URC OF VDBCONTROL CALL "ELAFXNUM" USING URC OF VDBCONTROL(LENGTH OF URC OF VDBCONTROL:1) 000098* VMESSAGE.UMSGCODE = 'SQL0100'; MOVE "SQL0100" TO UMSGCODE OF VMESSAGE 000099* ELSE; ELSE 000100* IF VDBCOMMON.UNRF EQ '1'; IF UNRF OF VDBCOMMON = "1" 000101* IF VDBCONTROL.UROWR EQ 0; IF UROWR OF VDBCONTROL = 0 000102* /* No rows read: NRF error 000103* VDBCONTROL.URC = 100; MOVE 100 TO URC OF VDBCONTROL CALL "ELAFXNUM" USING URC OF VDBCONTROL(LENGTH OF URC OF VDBCONTROL:1) 000104* VMESSAGE.UMSGCODE = 'SQL0100'; MOVE "SQL0100" TO UMSGCODE OF VMESSAGE 000105* END; END-IF 000106* END; END-IF 000107* END; END-IF 000108* END; END-IF 000109* END; END-IF 000110* ELSE; /* Other errors ELSE 000111* /* duplicate key error (DUP) 000112* IF EZESQCOD EQ -803; IF EZESQCOD = -803 000113* IF VDBCOMMON.UDUP EQ 'Y'; IF UDUP OF VDBCOMMON = "Y" 000114* VDBCONTROL.URC = 104; MOVE 104 TO URC OF VDBCONTROL CALL "ELAFXNUM" USING URC OF VDBCONTROL(LENGTH OF URC OF VDBCONTROL:1) 000115* VMESSAGE.UMSGCODE = 'SQL0803'; MOVE "SQL0803" TO UMSGCODE OF VMESSAGE 000116* END; END-IF 000117* ELSE; ELSE 000118* /* deadlock/timeout error 000119* IF EZESQCOD EQ -911 000120* OR EZESQCOD EQ -913; IF EZESQCOD = -911 OR EZESQCOD = -913 000121* VDBCONTROL.URC = 108; MOVE 108 TO URC OF VDBCONTROL CALL "ELAFXNUM" USING URC OF VDBCONTROL(LENGTH OF URC OF VDBCONTROL:1) 000122* VMESSAGE.UMSGCODE = 'SQL0913'; MOVE "SQL0913" TO UMSGCODE OF VMESSAGE 000123* ELSE; ELSE 000124* IF EZESQCOD EQ -532; IF EZESQCOD = -532 000125* VDBCONTROL.URC = 108; MOVE 108 TO URC OF VDBCONTROL CALL "ELAFXNUM" USING URC OF VDBCONTROL(LENGTH OF URC OF VDBCONTROL:1) 000126* VMESSAGE.UMSGCODE = 'SQL0532'; MOVE "SQL0532" TO UMSGCODE OF VMESSAGE 000127* ELSE; ELSE 000128* IF EZESQCOD EQ -530; IF EZESQCOD = -530 000129* VDBCONTROL.URC = 108; MOVE 108 TO URC OF VDBCONTROL CALL "ELAFXNUM" USING URC OF VDBCONTROL(LENGTH OF URC OF VDBCONTROL:1) 000130* VMESSAGE.UMSGCODE = 'SQL0530'; MOVE "SQL0530" TO UMSGCODE OF VMESSAGE 000131* ELSE; ELSE 000132* /* Other SQL error 000133* IF EZESQCOD LT 0; IF EZESQCOD < 0 000134* VDBCONTROL.URC = 112; MOVE 112 TO URC OF VDBCONTROL CALL "ELAFXNUM" USING URC OF VDBCONTROL(LENGTH OF URC OF VDBCONTROL:1) 000135* VMESSAGE.UMSGCODE = 'SQL9999'; MOVE "SQL9999" TO UMSGCODE OF VMESSAGE 000136* END; END-IF 000137* END; END-IF 000138* END; END-IF 000139* END; /* deadlock/timeout error END-IF 000140* END; /* DUP error END-IF 000141* END; /* NRF error END-IF 000142* 000143* /* When URC contains a value, move the EZESQCOD 000144* /* to the message insert field. 000145* IF VDBCONTROL.URC EQ 112 000146* OR VDBCONTROL.URC EQ 108; IF URC OF VDBCONTROL = 112 OR URC OF VDBCONTROL = 108 000147* 000148* /* Move SQL error number to number item. 000149* VDBCOMMON.USQLNUM = EZESQCOD; COMPUTE USQLNUM OF VDBCOMMON = EZESQCOD ON SIZE ERROR MOVE "SQL-ERROR" TO EZERTS-PRC-NAME MOVE 149 TO EZERTS-PRC-NUM PERFORM EZEOVER-ROUTINE END-COMPUTE CALL "ELAFXNUM" USING USQLNUM OF VDBCOMMON(LENGTH OF USQLNUM OF VDBCOMMON:1) 000150* 000151* /* Set SQL code sign. 000152* IF VDBCOMMON.USQLNUM LT 0; IF USQLNUM OF VDBCOMMON < 0 000153* VDBCOMMON.USIGN = '-'; MOVE "-" TO USIGN OF VDBCOMMON 000154* VDBCOMMON.USQLNUM = VDBCOMMON.USQLNUM * -1; COMPUTE USQLNUM OF VDBCOMMON = USQLNUM OF VDBCOMMON * -1 ON SIZE ERROR MOVE "SQL-ERROR" TO EZERTS-PRC-NAME MOVE 154 TO EZERTS-PRC-NUM PERFORM EZEOVER-ROUTINE END-COMPUTE CALL "ELAFXNUM" USING USQLNUM OF VDBCOMMON(LENGTH OF USQLNUM OF VDBCOMMON:1) 000155* ELSE; ELSE 000156* VDBCOMMON.USIGN = '+'; MOVE "+" TO USIGN OF VDBCOMMON 000157* END; /* Set SQL code sign. END-IF 000158* 000159* /* Move SQL error number to character item. 000160* VDBCOMMON.USQLCHA = VDBCOMMON.USQLNUM; MOVE USQLNUM OF VDBCOMMON(1:LENGTH OF USQLNUM OF VDBCOMMON) TO USQLCHA OF VDBCOMMON 000161* 000162* /* Move SQL error number to message insert. 000163* VMESSAGE.UMSGINS(1) = VDBCOMMON.UEZESQCD; MOVE UEZESQCD OF VDBCOMMON TO UMSGINS OF VMESSAGE (1) 000164* 000165* END; END-IF 000166* END; /* SQL error occurred. END-IF 000167* 000168* 000169* /* When error occurred: 000170* IF VDBCONTROL.URC NE 0; IF URC OF VDBCONTROL NOT = 0 000171* 000172* /* Store SQL message inserts. 000173* VDBCONTROL.UEZESQRRM = EZESQRRM; MOVE EZESQRRM TO UEZESQRRM OF VDBCONTROL 000174* 000175* /* Move applicationame to message insert. 000176* IF VMESSAGE.UMSGINS(1) EQ ' '; IF UMSGINS OF VMESSAGE (1) = " " 000177* VMESSAGE.UMSGINS(1) = VDBCOMMON.UPROCNAM; MOVE UPROCNAM OF VDBCOMMON TO UMSGINS OF VMESSAGE (1) 000178* END; END-IF 000179* 000180* /* Move applicationame to message insert. 000181* IF VMESSAGE.UMSGINS(2) EQ ' '; IF UMSGINS OF VMESSAGE (2) = " " 000182* VMESSAGE.UMSGINS(2) = VDBCOMMON.UAPPLNAM; MOVE UAPPLNAM OF VDBCOMMON TO UMSGINS OF VMESSAGE (2) 000183* END; END-IF 000184* 000185* /* Move tablename to message insert. 000186* IF VMESSAGE.UMSGINS(3) EQ ' '; IF UMSGINS OF VMESSAGE (3) = " " 000187* VMESSAGE.UMSGINS(3) = VDBCOMMON.UTABLNAM; MOVE UTABLNAM OF VDBCOMMON TO UMSGINS OF VMESSAGE (3) 000188* END; END-IF 000189* 000190* /* Determine if rollback is required 000191* IF VDBCONTROL.UACCTYP EQ 'W' 000192* AND VDBCONTROL.UROWW GE 1; IF UACCTYP OF VDBCONTROL = "W" AND UROWW OF VDBCONTROL >= 1 000193* VDBCONTROL.UROLLBACK = 'Y'; MOVE "Y" TO UROLLBACK OF VDBCONTROL 000194* END; /* Rollback required. END-IF 000195* END; /* Error detected. END-IF CONTINUE. EZE-EZEP-SQL-ERROR-X. EXIT. *----------------------------------------------------------------- * PROCESS : SQL-INIT * : SQL-INIT RENAMED TO EZEP-SQL-INIT * MODIFICATION DATE : 01.06.2000 * MODIFICATION TIME : 10:44:07 * PROCESS OPTION : EXECUTE * DESCRIPTION : std. SQL initialization *----------------------------------------------------------------- EZEP-SQL-INIT SECTION. MOVE "SQL-INIT" TO EZERTS-PRC-NAME 000196* /* ************************************************************ 000197* /* * Proces : SQL-INIT 000198* /* * 000199* /* * Function : This process initializes the record items 000200* /* * used in applications which perform SQL 000201* /* * queries. 000202* /* * 000203* /* ************************************************************ 000204* 000205* /* Return SQL hard errors. 000206* EZEFEC = 1; MOVE 1 TO EZEFEC CALL "ELAFXNUM" USING EZEFEC(LENGTH OF EZEFEC:1) 000207* 000208* /* Initialize common data items used for control 000209* /* and error handling. 000210* VDBCONTROL.URC = 0; MOVE 0 TO URC OF VDBCONTROL CALL "ELAFXNUM" USING URC OF VDBCONTROL(LENGTH OF URC OF VDBCONTROL:1) 000211* VDBCONTROL.UROLLBACK = 'N'; MOVE "N" TO UROLLBACK OF VDBCONTROL 000212* VDBCONTROL.UNRF = 'N'; MOVE "N" TO UNRF OF VDBCONTROL 000213* 000214* VDBCONTROL.UACCTYP = ' '; MOVE " " TO UACCTYP OF VDBCONTROL 000215* VDBCONTROL.UACCSAV = ' '; MOVE " " TO UACCSAV OF VDBCONTROL 000216* VDBCONTROL.UROWR = 0; MOVE 0 TO UROWR OF VDBCONTROL 000217* VDBCONTROL.UROWW = 0; MOVE 0 TO UROWW OF VDBCONTROL 000218* VDBCONTROL.UEZESQRRM = ' '; MOVE " " TO UEZESQRRM OF VDBCONTROL 000219* 000220* SET VDBCOMMON EMPTY; PERFORM EZESETEMP-VDBCOMMON 000221* 000222* LOW-VALUE = ' '; MOVE " " TO EZEI-LOW-VALUE OF VDBCONTROL 000223* IF EZESYS IS ITF; IF EZESYS-ITF 000224* HIGH-VALUE = 'Z'; MOVE "Z" TO EZEI-HIGH-VALUE OF VDBCONTROL 000225* ELSE; ELSE 000226* HIGH-VALUE = '9'; MOVE "9" TO EZEI-HIGH-VALUE OF VDBCONTROL 000227* END; END-IF 000228* CONTINUE. EZE-EZEP-SQL-INIT-X. EXIT. *----------------------------------------------------------------- * PROCESS : THKKM1-SCAN-DATA * MODIFICATION DATE : 02.06.2000 * MODIFICATION TIME : 11:42:30 * PROCESS OPTION : EXECUTE *----------------------------------------------------------------- THKKM1-SCAN-DATA SECTION. MOVE "THKKM1-SCAN-DATA" TO EZERTS-PRC-NAME 000229* WHILE EZESQCOD = 0; CONTINUE. EZECONDLBL-1. IF EZESQCOD = 0 GO TO EZECONDLBL-2 END-IF GO TO EZECONDLBL-3 CONTINUE. EZECONDLBL-2. 000230* PERFORM MAAS_SCAN; PERFORM MAAS-SCAN 000231* IF EZESQCOD = 0; IF EZESQCOD = 0 GO TO EZECONDLBL-4 END-IF GO TO EZECONDLBL-5 CONTINUE. EZECONDLBL-4. 000232* 000233* /* *************** kazanclarin hesaplanmasi********************* 000233* *****************/ 000234* 000235* MAAS.IS_GUCLUGU = MAAS.IS_GUC_PUAN * KATSAYI.YAN_ODE_KSAYI; COMPUTE EZEI-6 OF MAAS = EZEI-5 OF MAAS * YAN-ODE-KSAYI OF KATSAYI ON SIZE ERROR MOVE "THKKM1-SCAN-DATA" TO EZERTS-PRC-NAME MOVE 235 TO EZERTS-PRC-NUM PERFORM EZEOVER-ROUTINE END-COMPUTE MOVE ZEROS TO EZEI-6 OF EZESQL-MAAS-I 000236* MAAS.ELTEM_GUCLUGU = MAAS.ELTEM_PUAN * KATSAYI.YAN_ODE_KSAY 000236* I; COMPUTE EZEI-8 OF MAAS = EZEI-7 OF MAAS * YAN-ODE-KSAYI OF KATSAYI ON SIZE ERROR MOVE "THKKM1-SCAN-DATA" TO EZERTS-PRC-NAME MOVE 236 TO EZERTS-PRC-NUM PERFORM EZEOVER-ROUTINE END-COMPUTE MOVE ZEROS TO EZEI-8 OF EZESQL-MAAS-I 000237* MAAS.OZEL_HIZMET_TAZ = KATSAYI.MAAS_KSAYI * MAAS.OZEL_HIZM 000237* ET_YZD / 100; COMPUTE EZEI-10 OF MAAS = MAAS-KSAYI OF KATSAYI * EZEI-9 OF MAAS / 100 ON SIZE ERROR MOVE "THKKM1-SCAN-DATA" TO EZERTS-PRC-NAME MOVE 237 TO EZERTS-PRC-NUM PERFORM EZEOVER-ROUTINE END-COMPUTE MOVE ZEROS TO EZEI-10 OF EZESQL-MAAS-I 000238* MAAS.MAKAM_TAZ = MAAS.MAKAM_PUAN * KATSAYI.MAAS_KSAYI; COMPUTE EZEI-12 OF MAAS = EZEI-11 OF MAAS * MAAS-KSAYI OF KATSAYI ON SIZE ERROR MOVE "THKKM1-SCAN-DATA" TO EZERTS-PRC-NAME MOVE 238 TO EZERTS-PRC-NUM PERFORM EZEOVER-ROUTINE END-COMPUTE MOVE ZEROS TO EZEI-12 OF EZESQL-MAAS-I 000239* MAAS.MALI_SORUMLULUK_TAZ = MAAS.MALI_SOR_PUAN * KATSAYI.YAN 000239* _ODE_KSAYI; COMPUTE EZEI-14 OF MAAS = EZEI-13 OF MAAS * YAN-ODE-KSAYI OF KATSAYI ON SIZE ERROR MOVE "THKKM1-SCAN-DATA" TO EZERTS-PRC-NAME MOVE 239 TO EZERTS-PRC-NUM PERFORM EZEOVER-ROUTINE END-COMPUTE MOVE ZEROS TO EZEI-14 OF EZESQL-MAAS-I 000240* IF MAAS.YABANCI_DIL_SEVIYE = 'A'; IF EZEI-15 OF MAAS = "A" 000241* MAAS.YABANCI_DIL_TAZ = KATSAYI.YDIL_A_KSAYI * KATSAYI.MA 000241* AS_KSAYI; COMPUTE EZEI-16 OF MAAS = YDIL-A-KSAYI OF KATSAYI * MAAS-KSAYI OF KATSAYI ON SIZE ERROR MOVE "THKKM1-SCAN-DATA" TO EZERTS-PRC-NAME MOVE 241 TO EZERTS-PRC-NUM PERFORM EZEOVER-ROUTINE END-COMPUTE MOVE ZEROS TO EZEI-16 OF EZESQL-MAAS-I 000242* ELSE; ELSE 000243* IF MAAS.YABANCI_DIL_SEVIYE = 'B'; IF EZEI-15 OF MAAS = "B" 000244* MAAS.YABANCI_DIL_TAZ = KATSAYI.YDIL_B_KSAYI * KATSAYI. 000244* MAAS_KSAYI; COMPUTE EZEI-16 OF MAAS = YDIL-B-KSAYI OF KATSAYI * MAAS-KSAYI OF KATSAYI ON SIZE ERROR MOVE "THKKM1-SCAN-DATA" TO EZERTS-PRC-NAME MOVE 244 TO EZERTS-PRC-NUM PERFORM EZEOVER-ROUTINE END-COMPUTE MOVE ZEROS TO EZEI-16 OF EZESQL-MAAS-I 000245* ELSE; ELSE 000246* IF MAAS.YABANCI_DIL_SEVIYE = 'C'; IF EZEI-15 OF MAAS = "C" 000247* MAAS.YABANCI_DIL_TAZ = KATSAYI.YDIL_C_KSAYI * KATSAYI 000247* M.MAAS_KSAYI; COMPUTE EZEI-16 OF MAAS = YDIL-C-KSAYI OF KATSAYI * MAAS-KSAYI OF KATSAYI ON SIZE ERROR MOVE "THKKM1-SCAN-DATA" TO EZERTS-PRC-NAME MOVE 247 TO EZERTS-PRC-NUM PERFORM EZEOVER-ROUTINE END-COMPUTE MOVE ZEROS TO EZEI-16 OF EZESQL-MAAS-I 000248* END; END-IF 000249* END; END-IF 000250* END; END-IF 000251* MAAS.AILE_YARDIM_TAZ = MAAS.AILE_YARDIM_PUAN * KATSAYI.MAAS 000251* _KSAYI; COMPUTE EZEI-19 OF MAAS = EZEI-18 OF MAAS * MAAS-KSAYI OF KATSAYI ON SIZE ERROR MOVE "THKKM1-SCAN-DATA" TO EZERTS-PRC-NAME MOVE 251 TO EZERTS-PRC-NUM PERFORM EZEOVER-ROUTINE END-COMPUTE MOVE ZEROS TO EZEI-19 OF EZESQL-MAAS-I 000252* MAAS.COCUK_TAZ = KATSAYI.COCUK_KSAYI * KATSAYI.MAAS_KSAYI; COMPUTE EZEI-21 OF MAAS = COCUK-KSAYI OF KATSAYI * MAAS-KSAYI OF KATSAYI ON SIZE ERROR MOVE "THKKM1-SCAN-DATA" TO EZERTS-PRC-NAME MOVE 252 TO EZERTS-PRC-NUM PERFORM EZEOVER-ROUTINE END-COMPUTE MOVE ZEROS TO EZEI-21 OF EZESQL-MAAS-I 000253* IF MAAS.COCUK_SAYI >= 2; IF EZEI-20 OF MAAS >= 2 000254* MAAS.COCUK_TAZ = MAAS.COCUK_TAZ * 2; COMPUTE EZEI-21 OF MAAS = EZEI-21 OF MAAS * 2 ON SIZE ERROR MOVE "THKKM1-SCAN-DATA" TO EZERTS-PRC-NAME MOVE 254 TO EZERTS-PRC-NUM PERFORM EZEOVER-ROUTINE END-COMPUTE MOVE ZEROS TO EZEI-21 OF EZESQL-MAAS-I 000255* END; END-IF 000256* 000257* /* ************************************************************* 000257* ****************************/ 000258* 000259* WMAAS = MAAS; MOVE SICIL OF MAAS TO SICIL OF WMAAS MOVE EZEI-1 OF MAAS TO ESKI-DERECE OF WMAAS MOVE EZEI-2 OF MAAS TO ESKI-KADEME OF WMAAS MOVE EZEI-3 OF MAAS TO ESKI-EKGOSTERGE OF WMAAS MOVE EZEI-4 OF MAAS TO ESKI-KIDEM OF WMAAS MOVE DERECE OF MAAS TO DERECE OF WMAAS MOVE KADEME OF MAAS TO KADEME OF WMAAS MOVE EKGOSTERGE OF MAAS TO EKGOSTERGE OF WMAAS MOVE KIDEM OF MAAS TO KIDEM OF WMAAS MOVE EZEI-5 OF MAAS TO IS-GUC-PUAN OF WMAAS MOVE EZEI-6 OF MAAS TO IS-GUCLUGU OF WMAAS MOVE EZEI-7 OF MAAS TO ELTEM-PUAN OF WMAAS MOVE EZEI-8 OF MAAS TO ELTEM-GUCLUGU OF WMAAS MOVE EZEI-9 OF MAAS TO OZEL-HIZMET-YZD OF WMAAS MOVE EZEI-10 OF MAAS TO OZEL-HIZMET-TAZ OF WMAAS MOVE EZEI-11 OF MAAS TO MAKAM-PUAN OF WMAAS MOVE EZEI-12 OF MAAS TO MAKAM-TAZ OF WMAAS MOVE EZEI-13 OF MAAS TO MALI-SOR-PUAN OF WMAAS MOVE EZEI-14 OF MAAS TO MALI-SORUMLULUK-TAZ OF WMAAS MOVE EZEI-15 OF MAAS TO YABANCI-DIL-SEVIYE OF WMAAS MOVE EZEI-16 OF MAAS TO YABANCI-DIL-TAZ OF WMAAS MOVE EZEI-17 OF MAAS TO LOJMAN-TAZ OF WMAAS MOVE EZEI-18 OF MAAS TO AILE-YARDIM-PUAN OF WMAAS MOVE EZEI-19 OF MAAS TO AILE-YARDIM-TAZ OF WMAAS MOVE EZEI-20 OF MAAS TO COCUK-SAYI OF WMAAS MOVE EZEI-21 OF MAAS TO COCUK-TAZ OF WMAAS MOVE EZEI-22 OF MAAS TO GELIR-VERGI OF WMAAS MOVE EZEI-23 OF MAAS TO DAMGA-VERGI OF WMAAS MOVE EZEI-24 OF MAAS TO YUKSELIS-KES OF WMAAS MOVE EZEI-25 OF MAAS TO EMEKLI-AIDAT-SAH OF WMAAS MOVE EZEI-26 OF MAAS TO EMEKLI-AIDAT-KUR OF WMAAS MOVE EZEI-27 OF MAAS TO VAKIF-AIDAT OF WMAAS MOVE EZEI-28 OF MAAS TO SAGLIK-AIDAT OF WMAAS MOVE EZEI-29 OF MAAS TO VAKIF-KREDI OF WMAAS MOVE KAMP OF MAAS TO KAMP OF WMAAS MOVE YEMEK OF MAAS TO YEMEK OF WMAAS MOVE LOKAL OF MAAS TO LOKAL OF WMAAS MOVE KRES OF MAAS TO KRES OF WMAAS MOVE ICRA OF MAAS TO ICRA OF WMAAS MOVE HARCIRAH OF MAAS TO HARCIRAH OF WMAAS MOVE EZEI-30 OF MAAS TO NET-MAAS OF WMAAS MOVE EZEI-31 OF MAAS TO TOP-MATRAH OF WMAAS 000260* 000261* /* ************************************************************* 000261* */ 000262* /* Aldiği Maaş ve Emekli Maaşı 000263* /* ************************************************************* 000263* */ 000264* 000265* 000266* DER_KAD.DERECE = WMAAS.DERECE; MOVE DERECE OF WMAAS TO DERECE OF DER-KAD MOVE ZEROS TO DERECE OF EZESQL-DER-KAD-I 000267* DER_KAD.KADEME = WMAAS.KADEME; MOVE KADEME OF WMAAS TO KADEME OF DER-KAD MOVE ZEROS TO KADEME OF EZESQL-DER-KAD-I 000268* PERFORM DERKAD_INQ1; PERFORM DERKAD-INQ1 000269* 000270* MAASV = KATSAYI.MAAS_KSAYI * (DER_KAD.GOSTERGE + WMAAS.EKGO 000270* STERGE + WMAAS.KIDEM) + 000271* KATSAYI.TABAN_AY_KSAYI * 1000 + WMAAS.IS_GUCLUGU + WMAAS. 000271* ELTEM_GUCLUGU + 000272* WMAAS.MALI_SORUMLULUK_TAZ; COMPUTE MAASV OF WTAHAKKUK = MAAS-KSAYI OF KATSAYI * (GOSTERGE OF DER-KAD + EKGOSTERGE OF WMAAS + KIDEM OF WMAAS) + TABAN-AY-KSAYI OF KATSAYI * 1000 + IS-GUCLUGU OF WMAAS + ELTEM-GUCLUGU OF WMAAS + MALI-SORUMLULUK-TAZ OF WMAAS ON SIZE ERROR MOVE "THKKM1-SCAN-DATA" TO EZERTS-PRC-NAME MOVE 270 TO EZERTS-PRC-NUM PERFORM EZEOVER-ROUTINE END-COMPUTE CALL "ELAFXNUM" USING MAASV OF WTAHAKKUK(LENGTH OF MAASV OF WTAHAKKUK:1) 000273* 000274* MAAST = MAASV + WMAAS.OZEL_HIZMET_TAZ + WMAAS.MAKAM_TAZ + WM 000274* AAS.YABANCI_DIL_TAZ + 000275* WMAAS.LOJMAN_TAZ + WMAAS.AILE_YARDIM_TAZ + WMAAS.COCUK_TAZ 000275* ; COMPUTE MAAST OF WTAHAKKUK = MAASV OF WTAHAKKUK + OZEL-HIZMET-TAZ OF WMAAS + MAKAM-TAZ OF WMAAS + YABANCI-DIL-TAZ OF WMAAS + LOJMAN-TAZ OF WMAAS + AILE-YARDIM-TAZ OF WMAAS + COCUK-TAZ OF WMAAS ON SIZE ERROR MOVE "THKKM1-SCAN-DATA" TO EZERTS-PRC-NAME MOVE 274 TO EZERTS-PRC-NUM PERFORM EZEOVER-ROUTINE END-COMPUTE CALL "ELAFXNUM" USING MAAST OF WTAHAKKUK(LENGTH OF MAAST OF WTAHAKKUK:1) 000276* 000277* MAASD = MAAST - (WMAAS.COCUK_TAZ + WMAAS.AILE_YARDIM_TAZ); COMPUTE MAASD OF WTAHAKKUK = MAAST OF WTAHAKKUK - (COCUK-TAZ OF WMAAS + AILE-YARDIM-TAZ OF WMAAS) ON SIZE ERROR MOVE "THKKM1-SCAN-DATA" TO EZERTS-PRC-NAME MOVE 277 TO EZERTS-PRC-NUM PERFORM EZEOVER-ROUTINE END-COMPUTE CALL "ELAFXNUM" USING MAASD OF WTAHAKKUK(LENGTH OF MAASD OF WTAHAKKUK:1) 000278* 000279* 000280* IF WMAAS.DERECE NE WMAAS.ESKI_DERECE OR 000281* WMAAS.KADEME NE WMAAS.ESKI_KADEME OR 000282* WMAAS.KIDEM NE WMAAS.ESKI_KIDEM OR 000283* WMAAS.EKGOSTERGE NE WMAAS.ESKI_EKGOSTERGE; IF DERECE OF WMAAS NOT = ESKI-DERECE OF WMAAS OR KADEME OF WMAAS NOT = ESKI-KADEME OF WMAAS OR KIDEM OF WMAAS NOT = ESKI-KIDEM OF WMAAS OR EKGOSTERGE OF WMAAS NOT = ESKI-EKGOSTERGE OF WMAAS GO TO EZECONDLBL-6 END-IF GO TO EZECONDLBL-7 CONTINUE. EZECONDLBL-6. 000284* 000285* YGOSTERGE = DER_KAD.GOSTERGE; MOVE GOSTERGE OF DER-KAD TO YGOSTERGE OF WTAHAKKUK CALL "ELAFXNUM" USING YGOSTERGE OF WTAHAKKUK(LENGTH OF YGOSTERGE OF WTAHAKKUK:1) 000286* DER_KAD.DERECE = WMAAS.ESKI_DERECE; MOVE ESKI-DERECE OF WMAAS TO DERECE OF DER-KAD MOVE ZEROS TO DERECE OF EZESQL-DER-KAD-I 000287* DER_KAD.KADEME = WMAAS.ESKI_KADEME; MOVE ESKI-KADEME OF WMAAS TO KADEME OF DER-KAD MOVE ZEROS TO KADEME OF EZESQL-DER-KAD-I 000288* PERFORM DERKAD_INQ1; PERFORM DERKAD-INQ1 000289* MAAS.YUKSELIS_KES = KATSAYI.MAAS_KSAYI * (YGOSTERGE + WMA 000289* AS.EKGOSTERGE + WMAAS.KIDEM - 000290* DER_KAD.GOSTERGE - WMAAS.ESKI_EKGOSTERGE - WMAAS.ESKI_KI 000290* DEM); COMPUTE EZEI-24 OF MAAS = MAAS-KSAYI OF KATSAYI * (YGOSTERGE OF WTAHAKKUK + EKGOSTERGE OF WMAAS + KIDEM OF WMAAS - GOSTERGE OF DER-KAD - ESKI-EKGOSTERGE OF WMAAS - ESKI-KIDEM OF WMAAS) ON SIZE ERROR MOVE "THKKM1-SCAN-DATA" TO EZERTS-PRC-NAME MOVE 289 TO EZERTS-PRC-NUM PERFORM EZEOVER-ROUTINE END-COMPUTE MOVE ZEROS TO EZEI-24 OF EZESQL-MAAS-I CONTINUE. EZECONDLBL-7. 000291* END; 000292* 000293* 000294* /* Kişi Yüzdeleri Hesabı 000295* MAAS.EMEKLI_AIDAT_SAH = (MAAST - MAAS.YUKSELIS_KES) * KATSAY 000295* I.EMEKLI_SAHIS_PAY; COMPUTE EZEI-25 OF MAAS = (MAAST OF WTAHAKKUK - EZEI-24 OF MAAS) * EMEKLI-SAHIS-PAY OF KATSAYI ON SIZE ERROR MOVE "THKKM1-SCAN-DATA" TO EZERTS-PRC-NAME MOVE 295 TO EZERTS-PRC-NUM PERFORM EZEOVER-ROUTINE END-COMPUTE MOVE ZEROS TO EZEI-25 OF EZESQL-MAAS-I 000296* 000297* /* Kurum Yüzdeleri Hesabı 000298* MAAS.EMEKLI_AIDAT_KUR = MAAST * KATSAYI.EMEKLI_KURUM_PAY; COMPUTE EZEI-26 OF MAAS = MAAST OF WTAHAKKUK * EMEKLI-KURUM-PAY OF KATSAYI ON SIZE ERROR MOVE "THKKM1-SCAN-DATA" TO EZERTS-PRC-NAME MOVE 298 TO EZERTS-PRC-NUM PERFORM EZEOVER-ROUTINE END-COMPUTE MOVE ZEROS TO EZEI-26 OF EZESQL-MAAS-I 000299* 000300* /* ************************************************************* 000300* */ 000301* /* Matrah Rutini Başlangıcı 000302* /* ************************************************************* 000302* */ 000303* 000304* IF WMAAS.TOP_MATRAH >= 0 AND 000305* WMAAS.TOP_MATRAH <= KATSAYI.VRG_DILIM_1; IF TOP-MATRAH OF WMAAS >= 0 AND TOP-MATRAH OF WMAAS <= VRG-DILIM-1 OF KATSAYI 000306* MAAS.GELIR_VERGI = MAASV * KATSAYI.VRG_ORAN_1 / 100; COMPUTE EZEI-22 OF MAAS = MAASV OF WTAHAKKUK * VRG-ORAN-1 OF KATSAYI / 100 ON SIZE ERROR MOVE "THKKM1-SCAN-DATA" TO EZERTS-PRC-NAME MOVE 306 TO EZERTS-PRC-NUM PERFORM EZEOVER-ROUTINE END-COMPUTE MOVE ZEROS TO EZEI-22 OF EZESQL-MAAS-I 000307* ELSE; ELSE 000308* IF WMAAS.TOP_MATRAH > KATSAYI.VRG_DILIM_1 AND 000309* WMAAS.TOP_MATRAH <= KATSAYI.VRG_DILIM_2; IF TOP-MATRAH OF WMAAS > VRG-DILIM-1 OF KATSAYI AND TOP-MATRAH OF WMAAS <= VRG-DILIM-2 OF KATSAYI 000310* MAAS.GELIR_VERGI = MAASV * KATSAYI.VRG_ORAN_2 / 100; COMPUTE EZEI-22 OF MAAS = MAASV OF WTAHAKKUK * VRG-ORAN-2 OF KATSAYI / 100 ON SIZE ERROR MOVE "THKKM1-SCAN-DATA" TO EZERTS-PRC-NAME MOVE 310 TO EZERTS-PRC-NUM PERFORM EZEOVER-ROUTINE END-COMPUTE MOVE ZEROS TO EZEI-22 OF EZESQL-MAAS-I 000311* ELSE; ELSE 000312* IF WMAAS.TOP_MATRAH > KATSAYI.VRG_DILIM_2 AND 000313* WMAAS.TOP_MATRAH <= KATSAYI.VRG_DILIM_3; IF TOP-MATRAH OF WMAAS > VRG-DILIM-2 OF KATSAYI AND TOP-MATRAH OF WMAAS <= VRG-DILIM-3 OF KATSAYI 000314* MAAS.GELIR_VERGI = MAASV * KATSAYI.VRG_ORAN_3 / 100; COMPUTE EZEI-22 OF MAAS = MAASV OF WTAHAKKUK * VRG-ORAN-3 OF KATSAYI / 100 ON SIZE ERROR MOVE "THKKM1-SCAN-DATA" TO EZERTS-PRC-NAME MOVE 314 TO EZERTS-PRC-NUM PERFORM EZEOVER-ROUTINE END-COMPUTE MOVE ZEROS TO EZEI-22 OF EZESQL-MAAS-I 000315* ELSE; ELSE 000316* IF WMAAS.TOP_MATRAH > KATSAYI.VRG_DILIM_3 AND 000317* WMAAS.TOP_MATRAH <= KATSAYI.VRG_DILIM_4; IF TOP-MATRAH OF WMAAS > VRG-DILIM-3 OF KATSAYI AND TOP-MATRAH OF WMAAS <= VRG-DILIM-4 OF KATSAYI 000318* MAAS.GELIR_VERGI = MAASV * KATSAYI.VRG_ORAN_4 / 100 000318* ; COMPUTE EZEI-22 OF MAAS = MAASV OF WTAHAKKUK * VRG-ORAN-4 OF KATSAYI / 100 ON SIZE ERROR MOVE "THKKM1-SCAN-DATA" TO EZERTS-PRC-NAME MOVE 318 TO EZERTS-PRC-NUM PERFORM EZEOVER-ROUTINE END-COMPUTE MOVE ZEROS TO EZEI-22 OF EZESQL-MAAS-I 000319* ELSE; ELSE 000320* IF WMAAS.TOP_MATRAH > KATSAYI.VRG_DILIM_4 000321* AND 000322* WMAAS.TOP_MATRAH <= KATSAYI.VRG_DILIM_5; IF TOP-MATRAH OF WMAAS > VRG-DILIM-4 OF KATSAYI AND TOP-MATRAH OF WMAAS <= VRG-DILIM-5 OF KATSAYI 000323* MAAS.GELIR_VERGI = MAASV * KATSAYI.VRG_ORAN_5 / 1 000323* 00; COMPUTE EZEI-22 OF MAAS = MAASV OF WTAHAKKUK * VRG-ORAN-5 OF KATSAYI / 100 ON SIZE ERROR MOVE "THKKM1-SCAN-DATA" TO EZERTS-PRC-NAME MOVE 323 TO EZERTS-PRC-NUM PERFORM EZEOVER-ROUTINE END-COMPUTE MOVE ZEROS TO EZEI-22 OF EZESQL-MAAS-I 000324* ELSE; ELSE 000325* IF WMAAS.TOP_MATRAH > KATSAYI.VRG_DILIM_5 000326* ; IF TOP-MATRAH OF WMAAS > VRG-DILIM-5 OF KATSAYI 000327* MAAS.GELIR_VERGI = MAASV * KATSAYI.VRG_ORAN_6 / 000327* 100; COMPUTE EZEI-22 OF MAAS = MAASV OF WTAHAKKUK * VRG-ORAN-6 OF KATSAYI / 100 ON SIZE ERROR MOVE "THKKM1-SCAN-DATA" TO EZERTS-PRC-NAME MOVE 327 TO EZERTS-PRC-NUM PERFORM EZEOVER-ROUTINE END-COMPUTE MOVE ZEROS TO EZEI-22 OF EZESQL-MAAS-I 000328* END; END-IF 000329* END; END-IF 000330* END; END-IF 000331* END; END-IF 000332* END; END-IF 000333* END; END-IF 000334* 000335* 000336* 000337* 000338* /* ************************************************************* 000338* */ 000339* /* Damga Vergisi 000340* /* ************************************************************* 000340* */ 000341* 000342* MAAS.DAMGA_VERGI = MAASD * KATSAYI.DMG_VRG_ORAN / 1000; COMPUTE EZEI-23 OF MAAS = MAASD OF WTAHAKKUK * DMG-VRG-ORAN OF KATSAYI / 1000 ON SIZE ERROR MOVE "THKKM1-SCAN-DATA" TO EZERTS-PRC-NAME MOVE 342 TO EZERTS-PRC-NUM PERFORM EZEOVER-ROUTINE END-COMPUTE MOVE ZEROS TO EZEI-23 OF EZESQL-MAAS-I 000343* 000344* 000345* /* ************************************************************* 000345* */ 000346* /* Yasal Kesinti Toplamı 000347* /* ************************************************************* 000347* */ 000348* 000349* YASAL_KESINTI_TOPLAM = WMAAS.YUKSELIS_KES + WMAAS.EMEKLI_AID 000349* AT_SAH + WMAAS.GELIR_VERGI + WMAAS.DAMGA_VERGI; COMPUTE YASAL-KESINTI-TOPLAM OF WTAHAKKUK = YUKSELIS-KES OF WMAAS + EMEKLI-AIDAT-SAH OF WMAAS + GELIR-VERGI OF WMAAS + DAMGA-VERGI OF WMAAS ON SIZE ERROR MOVE "THKKM1-SCAN-DATA" TO EZERTS-PRC-NAME MOVE 349 TO EZERTS-PRC-NUM PERFORM EZEOVER-ROUTINE END-COMPUTE CALL "ELAFXNUM" USING YASAL-KESINTI-TOPLAM OF WTAHAKKUK(LENGTH OF YASAL-KESINTI-TOPLAM OF WTAHAKKUK:1) 000350* 000351* 000352* /* ************************************************************* 000352* */ 000353* /* Özel Kesinti Toplamı 000354* /* ************************************************************* 000354* */ 000355* OZEL_KESINTI_TOPLAM = WMAAS.VAKIF_AIDAT + WMAAS.SAGLIK_AIDAT 000355* + WMAAS.VAKIF_KREDI + WMAAS.KAMP + WMAAS.YEMEK + 000356* WMAAS.KRES + WMAAS.LOKAL + WMAAS.HARCIRAH + WMAAS.ICRA; COMPUTE OZEL-KESINTI-TOPLAM OF WTAHAKKUK = VAKIF-AIDAT OF WMAAS + SAGLIK-AIDAT OF WMAAS + VAKIF-KREDI OF WMAAS + KAMP OF WMAAS + YEMEK OF WMAAS + KRES OF WMAAS + LOKAL OF WMAAS + HARCIRAH OF WMAAS + ICRA OF WMAAS ON SIZE ERROR MOVE "THKKM1-SCAN-DATA" TO EZERTS-PRC-NAME MOVE 355 TO EZERTS-PRC-NUM PERFORM EZEOVER-ROUTINE END-COMPUTE CALL "ELAFXNUM" USING OZEL-KESINTI-TOPLAM OF WTAHAKKUK(LENGTH OF OZEL-KESINTI-TOPLAM OF WTAHAKKUK:1) 000357* 000358* MAAS.NET_MAAS = MAAST - YASAL_KESINTI_TOPLAM - OZEL_KESINTI_ 000358* TOPLAM; COMPUTE EZEI-30 OF MAAS = MAAST OF WTAHAKKUK - YASAL-KESINTI-TOPLAM OF WTAHAKKUK - OZEL-KESINTI-TOPLAM OF WTAHAKKUK ON SIZE ERROR MOVE "THKKM1-SCAN-DATA" TO EZERTS-PRC-NAME MOVE 358 TO EZERTS-PRC-NUM PERFORM EZEOVER-ROUTINE END-COMPUTE MOVE ZEROS TO EZEI-30 OF EZESQL-MAAS-I 000359* 000360* MAAS.TOP_MATRAH = WMAAS.TOP_MATRAH + MAASV; COMPUTE EZEI-31 OF MAAS = TOP-MATRAH OF WMAAS + MAASV OF WTAHAKKUK ON SIZE ERROR MOVE "THKKM1-SCAN-DATA" TO EZERTS-PRC-NAME MOVE 360 TO EZERTS-PRC-NUM PERFORM EZEOVER-ROUTINE END-COMPUTE MOVE ZEROS TO EZEI-31 OF EZESQL-MAAS-I 000361* 000362* /* ************************************************************* 000362* */ 000363* /* UPDATE MAAS 000364* /* ************************************************************* 000364* */ 000365* 000366* PERFORM MAAS_UPD2; PERFORM MAAS-UPD2 000367* 000368* MAAST = 0; MOVE 0 TO MAAST OF WTAHAKKUK CALL "ELAFXNUM" USING MAAST OF WTAHAKKUK(LENGTH OF MAAST OF WTAHAKKUK:1) 000369* MAASV = 0; MOVE 0 TO MAASV OF WTAHAKKUK CALL "ELAFXNUM" USING MAASV OF WTAHAKKUK(LENGTH OF MAASV OF WTAHAKKUK:1) 000370* MAASD = 0; MOVE 0 TO MAASD OF WTAHAKKUK CALL "ELAFXNUM" USING MAASD OF WTAHAKKUK(LENGTH OF MAASD OF WTAHAKKUK:1) CONTINUE. EZECONDLBL-5. 000371* 000372* END; GO TO EZECONDLBL-1 CONTINUE. EZECONDLBL-3. 000373* END; CONTINUE. EZE-THKKM1-SCAN-DATA-X. EXIT. *----------------------------------------------------------------- * SQL ERROR ROUTINE *----------------------------------------------------------------- EZESQL-ERROR-ROUTINE SECTION. SET EZERTS-SQL-USED TO TRUE IF EZERTS-SQL-COMMAND NOT = "CLOSE" MOVE SQLCA TO EZESQLCA END-IF IF SQLCODE = 0 MOVE 0 TO EZERTS-SQLERR-STATUS ELSE MOVE EZERTS-SQLERR TO EZERTS-SQLERR-SVCS-NUM CALL "ELARSVCS" USING EZERTS-CONTROL-BLOCK EZERTS-SQLERR-REQUEST-BLOCK SQLCA IF EZERTS-TERMINATE AND EZECTL-NOT-IN-EZETERMINATE GO TO EZETERMINATE END-IF END-IF. EZESQL-ERROR-ROUTINE-X. EXIT. *----------------------------------------------------------------- * SET EMPTY FOR RECORD DER-KAD *----------------------------------------------------------------- EZESETEMP-DER-KAD SECTION. MOVE LOW-VALUES TO DER-KAD OF EZESTA-DER-KAD-GP MOVE SPACES TO DERECE OF DER-KAD MOVE SPACES TO KADEME OF DER-KAD CONTINUE. EZESETEMP-DER-KAD-X. EXIT. *----------------------------------------------------------------- * SET EMPTY FOR RECORD KATSAYI *----------------------------------------------------------------- EZESETEMP-KATSAYI SECTION. MOVE LOW-VALUES TO KATSAYI OF EZESTA-KATSAYI-GP MOVE SPACES TO DONEM-TARIH OF KATSAYI MOVE 0 TO VRG-DILIM-1 OF KATSAYI MOVE 0 TO VRG-DILIM-2 OF KATSAYI MOVE 0 TO VRG-DILIM-3 OF KATSAYI MOVE 0 TO VRG-DILIM-4 OF KATSAYI MOVE 0 TO VRG-DILIM-5 OF KATSAYI CONTINUE. EZESETEMP-KATSAYI-X. EXIT. *----------------------------------------------------------------- * SET EMPTY FOR RECORD MAAS *----------------------------------------------------------------- EZESETEMP-MAAS SECTION. MOVE LOW-VALUES TO MAAS OF EZESTA-MAAS-GP MOVE SPACES TO SICIL OF MAAS MOVE SPACES TO EZEI-1 OF MAAS MOVE SPACES TO EZEI-2 OF MAAS MOVE SPACES TO DERECE OF MAAS MOVE SPACES TO KADEME OF MAAS MOVE 0 TO EZEI-6 OF MAAS MOVE 0 TO EZEI-8 OF MAAS MOVE 0 TO EZEI-10 OF MAAS MOVE 0 TO EZEI-12 OF MAAS MOVE 0 TO EZEI-14 OF MAAS MOVE SPACES TO EZEI-15 OF MAAS MOVE 0 TO EZEI-16 OF MAAS MOVE 0 TO EZEI-17 OF MAAS MOVE 0 TO EZEI-19 OF MAAS MOVE 0 TO EZEI-21 OF MAAS MOVE 0 TO EZEI-22 OF MAAS MOVE 0 TO EZEI-23 OF MAAS MOVE 0 TO EZEI-24 OF MAAS MOVE 0 TO EZEI-25 OF MAAS MOVE 0 TO EZEI-26 OF MAAS MOVE 0 TO EZEI-27 OF MAAS MOVE 0 TO EZEI-28 OF MAAS MOVE 0 TO EZEI-29 OF MAAS MOVE 0 TO KAMP OF MAAS MOVE 0 TO YEMEK OF MAAS MOVE 0 TO LOKAL OF MAAS MOVE 0 TO KRES OF MAAS MOVE 0 TO ICRA OF MAAS MOVE 0 TO HARCIRAH OF MAAS MOVE 0 TO EZEI-30 OF MAAS MOVE 0 TO EZEI-31 OF MAAS CONTINUE. EZESETEMP-MAAS-X. EXIT. *----------------------------------------------------------------- * SET EMPTY FOR RECORD VDBCOMMON *----------------------------------------------------------------- EZESETEMP-VDBCOMMON SECTION. INITIALIZE VDBCOMMON OF EZEWS-VDBCOMMON-GP MOVE SPACES TO USYSID1 OF VDBCOMMON MOVE SPACES TO UAPPLID OF VDBCOMMON MOVE SPACES TO UAPPLSFX OF VDBCOMMON CALL "ELAFXNUM" USING USQLNUM OF VDBCOMMON(LENGTH OF USQLNUM OF VDBCOMMON:1) MOVE SPACES TO USIGN OF VDBCOMMON MOVE SPACES TO USQLCHA OF VDBCOMMON CONTINUE. EZESETEMP-VDBCOMMON-X. EXIT. *----------------------------------------------------------------- * SET EMPTY FOR RECORD WMAAS *----------------------------------------------------------------- EZESETEMP-WMAAS SECTION. INITIALIZE WMAAS OF EZEWS-WMAAS-GP CONTINUE. EZESETEMP-WMAAS-X. EXIT. *----------------------------------------------------------------- * SET EMPTY FOR RECORD WTAHAKKUK *----------------------------------------------------------------- EZESETEMP-WTAHAKKUK SECTION. INITIALIZE WTAHAKKUK OF EZEWS-WTAHAKKUK-GP CALL "ELAFXNUM" USING MAAST OF WTAHAKKUK(LENGTH OF MAAST OF WTAHAKKUK:1) CALL "ELAFXNUM" USING MAASV OF WTAHAKKUK(LENGTH OF MAASV OF WTAHAKKUK:1) CALL "ELAFXNUM" USING MAASD OF WTAHAKKUK(LENGTH OF MAASD OF WTAHAKKUK:1) CALL "ELAFXNUM" USING YASAL-KESINTI-TOPLAM OF WTAHAKKUK(LENGTH OF YASAL-KESINTI-TOPLAM OF WTAHAKKUK:1) CALL "ELAFXNUM" USING OZEL-KESINTI-TOPLAM OF WTAHAKKUK(LENGTH OF OZEL-KESINTI-TOPLAM OF WTAHAKKUK:1) CALL "ELAFXNUM" USING YGOSTERGE OF WTAHAKKUK(LENGTH OF YGOSTERGE OF WTAHAKKUK:1) CONTINUE. EZESETEMP-WTAHAKKUK-X. EXIT. *----------------------------------------------------------------- * TERMINATION LOGIC *----------------------------------------------------------------- EZETERMINATE SECTION. SET EZECTL-IN-EZETERMINATE TO TRUE. MOVE "EZETERMINATE" TO EZERTS-PRC-NAME PERFORM EZERESRC-SCHEDULE GO TO EZERUN-PROCESSES-X. *----------------------------------------------------------------- * ARITHMETIC OVERFLOW ROUTINE *----------------------------------------------------------------- EZEOVER-ROUTINE SECTION. MOVE 1 TO EZEOVERS IF EZEOVER-TERMINATE MOVE 0009 TO EZERTS-ERROR-NUM CALL "ELARSVCS" USING EZERTS-CONTROL-BLOCK EZERTS-ERROR-REQUEST-BLOCK GO TO EZETERMINATE END-IF. EZEOVER-ROUTINE-X. EXIT. *----------------------------------------------------------------- * MAXIMUM VALUE OVERFLOW ROUTINE *----------------------------------------------------------------- EZEOVER-MAX-VALUE-ROUTINE SECTION. MOVE 1 TO EZEOVERS IF EZEOVER-DEFAULT OR EZEOVER-TERMINATE MOVE 0026 TO EZERTS-ERROR-NUM CALL "ELARSVCS" USING EZERTS-CONTROL-BLOCK EZERTS-ERROR-REQUEST-BLOCK GO TO EZETERMINATE END-IF. EZEOVER-MAX-VALUE-ROUTINE-X. EXIT. *----------------------------------------------------------------- * CALLED APPLICATION CONTROL LOGIC *----------------------------------------------------------------- EZECONTROL SECTION. MOVE EIBFN TO EZEAPP-ENTRY-FUNCTION EXEC CICS IGNORE CONDITION ERROR END-EXEC CALL "ELARSTWA" USING DFHEIBLK DFHCOMMAREA EZEAPP-PROFILE SET ADDRESS OF EZERTS-CONTROL-BLOCK TO EZEAPP-RTS-PTR EXEC CICS HANDLE ABEND PROGRAM("ELAESABD") END-EXEC SET EZEPARM-MAPS-INVALID TO TRUE IF NOT EZERTS-SET MOVE "EZEINITIALIZE" TO EZERTS-PRC-NAME MOVE EZEAPP-APPL-NAME TO EZERTS-PGM-NAME SET EZEAPP-CALLER-PROFILE TO NULL CALL "ELAASADR" USING EZEAPP-PROFILE EZERTS-INIT-PROFILE ELSE MOVE "EZEINITIALIZE" TO EZERTS-PRC-NAME MOVE EZERTS-PGM-NAME TO EZECALLER MOVE EZEAPP-APPL-NAME TO EZERTS-PGM-NAME SET EZEAPP-CALLER-PROFILE TO EZERTS-CURR-PROFILE MOVE EZEDLPSB TO EZECTL-HOLD-EZEDLPSB IF EZERTS-TERMINATE CALL "ELAASADR" USING EZEAPP-PROFILE EZERTS-CURR-PROFILE SET EZECTL-IN-EZETERMINATE TO TRUE PERFORM EZEAPPL-IDENTIFY PERFORM EZEEXTERNAL-INITIALIZATION PERFORM EZERESRC-CLEANUP SET EZERTS-CURR-PROFILE TO EZEAPP-CALLER-PROFILE MOVE EZECALLER TO EZERTS-PGM-NAME GO TO EZECONTROL-X END-IF END-IF MOVE EZERTS-CTL-MODE TO EZECTL-HOLD-CTL-MODE MOVE EZERTS-CTL-REQUEST TO EZECTL-HOLD-CTL-REQUEST MOVE EZESEGTR TO EZESEGTR-SAVE MOVE SPACES TO EZESEGTR PERFORM EZEAPPL-IDENTIFY PERFORM EZEINITIALIZE-STORAGE PERFORM EZEREFRESH-STORAGE IF NOT EZERTS-TERMINATE-ON-ERROR AND EZEAPP-ENTRY-FUNCTION NOT = X"0E04" AND NOT EZERTS-ENTRY-FROM-TSMODULE PERFORM EZERECEIVE-COMMAREA-PARMS END-IF IF NOT EZERTS-TERMINATE-ON-ERROR PERFORM EZEEXTERNAL-INITIALIZATION END-IF IF NOT EZERTS-TERMINATE-ON-ERROR PERFORM EZERUN-PROCESSES END-IF IF EZEAPP-CALLER-PROFILE = NULL OR EZEAPP-ENTRY-FUNCTION = X"0E04" OR EZERTS-ENTRY-FROM-TSMODULE SET EZEAPP-CALLER-PROFILE TO NULL IF EZERTS-TERMINATE-ON-ERROR PERFORM EZEREPORT-ERRS-ON-TERMINATN END-IF PERFORM EZECICS-RTS-TERMINATE ELSE SET EZERTS-CURR-PROFILE TO EZEAPP-CALLER-PROFILE MOVE EZECALLER TO EZERTS-PGM-NAME MOVE EZESEGTR-SAVE TO EZESEGTR IF NOT EZERTS-TERMINATE MOVE EZECTL-HOLD-CTL-MODE TO EZERTS-CTL-MODE MOVE EZECTL-HOLD-CTL-REQUEST TO EZERTS-CTL-REQUEST END-IF MOVE EZECTL-HOLD-EZEDLPSB TO EZEDLPSB END-IF. EZECONTROL-X. EXIT. *----------------------------------------------------------------- * IDENTIFY APPLICATION *----------------------------------------------------------------- EZEAPPL-IDENTIFY SECTION. IF NOT EZERTS-SET MOVE SPACES TO EZELTERM MOVE ALL "*" TO EZEUSR EZEUSRID END-IF SET EZEAPP-CURS-BLK-PTR TO NULL SET EZEAPP-LAST-MAPBUF-PTR TO NULL SET EZEAPP-FIRST-MAPBUF-PTR TO NULL SET EZEAPP-ROWS-USED-PTR TO NULL SET EZEAPP-MAPG-MOD-PTR TO NULL SET EZEAPP-HELPG-MOD-PTR TO NULL CALL "ELAASADR" USING EZEWORDS EZEAPP-EZE-WORDS-PTR CALL "ELAASADR" USING EZEPARM-VALIDATION EZEAPP-PARM-VAL-PTR CALL "ELAASADR" USING EZEAPP-PROFILE EZERTS-CURR-PROFILE. EZEAPPL-IDENTIFY-X. EXIT. *----------------------------------------------------------------- * INITIALIZE STORAGE *----------------------------------------------------------------- EZEINITIALIZE-STORAGE SECTION. MOVE SPACES TO EZEWORDS-I MOVE ZERO TO EZECNVCM MOVE ZERO TO EZEFEC EZERCODE MOVE ZERO TO EZEDLERR EZESQISL EZEOVER EZEOVERS MOVE SPACES TO EZEDLPSB IF EZESEGTR = LOW-VALUES MOVE EIBTRNID TO EZESEGTR END-IF MOVE EIBTRMID TO EZELTERM EZEUSR SET EZESEGM-DEFINED TO TRUE MOVE SPACES TO EZEDESTP MOVE "N" TO EZEAPP-EZEDESTP-DIFF MOVE "N" TO EZEAPP-EZEDESTP-CHANGED MOVE 0 TO EZESTA-DER-KAD-RC PERFORM EZESETEMP-DER-KAD MOVE 0 TO EZESTA-KATSAYI-RC PERFORM EZESETEMP-KATSAYI MOVE 0 TO EZESTA-MAAS-RC PERFORM EZESETEMP-MAAS PERFORM EZESETEMP-VDBCOMMON PERFORM EZESETEMP-WMAAS PERFORM EZESETEMP-WTAHAKKUK CONTINUE. EZEINITIALIZE-STORAGE-X. EXIT. *----------------------------------------------------------------- * REFRESH STORAGE - ONLY THESE FIELDS ARE RESET ACROSS CONVERSE *----------------------------------------------------------------- EZEREFRESH-STORAGE SECTION. MOVE ZERO TO EZEDLCER EZEDLCON MOVE ZERO TO EZETST EZEDLLEV EZEDLSSG MOVE ZERO TO EZEMNO EZEDLKYL MOVE SPACES TO EZEDLSTC EZEDLDBD EZEDLKEY EZEDLPRO EZEDLSEG MOVE SPACES TO EZEMSG OF EZEWORDS MOVE "N" TO EZEMNO-MSG-FILE-SW MOVE LOW-VALUES TO EZESQLCA MOVE "SQLCA" TO EZESQNAM MOVE +136 TO EZESQABC MOVE ZERO TO EZESQCOD EZESQRRL MOVE ZERO TO EZESQRD1 EZESQRD2 EZESQRD3 MOVE ZERO TO EZESQRD4 EZESQRD5 EZESQRD6 IF NOT EZERTS-SET OR NOT EZERTS-TERMINATE MOVE SPACES TO EZERTS-DXFR-APPLID SET EZERTS-XFER-MAP-PTR TO NULL SET EZERTS-DXFR-XFER-REC-PTR TO NULL MOVE ZERO TO EZERTS-DXFR-XFER-REC-LEN END-IF. EZEREFRESH-STORAGE-X. EXIT. *----------------------------------------------------------------- * RTS INITIALIZATION *----------------------------------------------------------------- EZEEXTERNAL-INITIALIZATION SECTION. CALL "ELARSINT" USING EZERTS-CONTROL-BLOCK IF EZERTS-TERMINATE-ON-ERROR AND EZECTL-NOT-IN-EZETERMINATE GO TO EZEEXTERNAL-INITIALIZATION-X END-IF SET ADDRESS OF EZEIOP-NLS-INDEP-CTL-BLOCK TO EZERTS-IOP-TABLE-PTR SET ADDRESS OF EZEIOE-NLS-DEP-CTL-BLOCK TO EZERTS-DOP-TABLE-PTR SET ADDRESS OF EZECRS-CURSOR-BLOCKS TO EZEAPP-CURS-BLK-PTR IF NOT EZERTS-TERMINATE SET EZERTS-EXECUTE TO TRUE END-IF. EZEEXTERNAL-INITIALIZATION-X. EXIT. *----------------------------------------------------------------- * RUN APPLICATION PROCESSES *----------------------------------------------------------------- EZERUN-PROCESSES SECTION. SET EZECTL-NOT-IN-EZETERMINATE TO TRUE GO TO EZEBEGIN-PROCESSES. EZERUN-PROCESSES-X. EXIT. *----------------------------------------------------------------- * REPORT THE ERRORS *----------------------------------------------------------------- EZEREPORT-ERRS-ON-TERMINATN SECTION. IF NOT EZERTS-ROLLBACK-TAKEN SET EZERTS-ROLLBACK-TAKEN TO TRUE MOVE EZERTS-ROLLBACK TO EZERTS-SVCS-NUM CALL "ELARSVCS" USING EZERTS-CONTROL-BLOCK EZERTS-REQUEST-BLOCK END-IF IF EZERTS-TERMINAL-ATTACHED MOVE EZERTS-DISPLAY-ERROR-MAP TO EZERTS-SVCS-NUM CALL "ELARSVCS" USING EZERTS-CONTROL-BLOCK EZERTS-REQUEST-BLOCK END-IF CONTINUE. EZEREPORT-ERRS-ON-TERMINATN-X. EXIT. *----------------------------------------------------------------- * RECEIVE PARAMETERS THAT WERE PASSED IN THE COMMAREA *----------------------------------------------------------------- EZERECEIVE-COMMAREA-PARMS SECTION. IF EIBCALEN < 4 OR (DFHCOMMAREA(EIBCALEN - 3:4) = HIGH-VALUES AND EIBCALEN NOT = 12) OR (DFHCOMMAREA(EIBCALEN - 3:4) NOT = HIGH-VALUES AND EIBCALEN NOT = 8) IF NOT EZERTS-SET CALL "ELARSINT" USING EZERTS-CONTROL-BLOCK END-IF IF NOT EZERTS-TERMINATE MOVE 32 TO EZERTS-ERROR-NUM CALL "ELARSVCS" USING EZERTS-CONTROL-BLOCK EZERTS-ERROR-REQUEST-BLOCK END-IF GO TO EZERECEIVE-COMMAREA-PARMS-X END-IF SET ADDRESS OF EZERCD-VDBCONTROL-GP TO EZECOMMAREA-PTR(1) SET ADDRESS OF EZERCD-VMESSAGE-GP TO EZECOMMAREA-PTR(2) CONTINUE. EZERECEIVE-COMMAREA-PARMS-X. EXIT. *----------------------------------------------------------------- * CANCEL CLEAN-UP IF ALL RESOURCES ARE CLOSED *----------------------------------------------------------------- EZERESRC-SCHEDULE SECTION. MOVE "EZERESRC-SCHED" TO EZERTS-PRC-NAME IF EZEAPP-CALLER-PROFILE IS EQUAL TO NULL PERFORM EZERESRC-CLEANUP GO TO EZERESRC-SCHEDULE-X END-IF IF EZECRS-DER-KAD-CLOS AND EZECRS-KATSAYI-CLOS AND EZECRS-MAAS-CLOS MOVE EZERTS-UNSCHEDULE TO EZERTS-SVCS-NUM CALL "ELARSVCS" USING EZERTS-CONTROL-BLOCK EZERTS-REQUEST-BLOCK END-IF CONTINUE. EZERESRC-SCHEDULE-X. EXIT. *----------------------------------------------------------------- * RESOURCE CLEAN-UP ROUTINE *----------------------------------------------------------------- EZERESRC-CLEANUP SECTION. SET EZECTL-IN-EZETERMINATE TO TRUE MOVE "EZERESRC-CLEAN" TO EZERTS-PRC-NAME PERFORM EZERESRC-CLOSE-CURSORS CONTINUE. EZERESRC-CLEANUP-X. EXIT. *----------------------------------------------------------------- * RESOURCE CLEAN-UP / CLOSE ALL OPEN CURSORS *----------------------------------------------------------------- EZERESRC-CLOSE-CURSORS SECTION. IF NOT EZECRS-DER-KAD-CLOS PERFORM EZECLOSCU-DER-KAD END-IF IF NOT EZECRS-KATSAYI-CLOS PERFORM EZECLOSCU-KATSAYI END-IF IF NOT EZECRS-MAAS-CLOS PERFORM EZECLOSCU-MAAS END-IF CONTINUE. EZERESRC-CLOSE-CURSORS-X. EXIT. EZECICS-RTS-TERMINATE SECTION. CALL "ELAASTRM" USING EZERTS-CONTROL-BLOCK EZERTS-REQUEST-BLOCK EXEC CICS HANDLE ABEND CANCEL END-EXEC. EZECICS-RTS-TERMINATE-X. EXIT. *----------------------------------------------------------------- * END OF PROGRAM THKKM1 *-----------------------------------------------------------------